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This sugary presents features of the mTUTOR progra««ing language. It is 
intended for the experienced author who needs a quick referencf? for the fom of 
a tag and for soae of the restrictions on coaiands. It does not discuss fine 
;! ^^^'^'^^ language. For such information authors should refer to 

The itTUTOR Lapguige by Bruce Shernood and Judith Sherwood. 

Each coaaand includes a brief description .of its purpose and a description 
of the tag. -The standard fora is 

coMMand brief description of operation of coaaand 

coaaand DESCRIPTION OF TAB (any explanatory coaaents) 
Note: Additional coaaents about this coaaand. 

NOTE: Beneral coaaents about groups of coaaands. 

In the description of a tag, words in upper case represent variables, values, 
expressions, or character strings supplied by the author; words in lower case 
are required words in the tag and aust appear exactly as shown. ArguMnts in 
the tag which are optional are printed in italics. Optional arguaents can be 
required words or author-supplied inforaation. 

For exaaple: 

at FINEX,FINEY 

draw L0CATI0Nl;skip;L0CATI0N2 

lesson coaplete 

ansv EUPRrTOLERAHCE 



The conaands are grouped into six categories: 

calculating kC) 
file operations (F) 
judging (J) 
presenting (P) 
routing (R) 
sequencing (S) 

Coaaands which are difficult to classify are placed in categories which describe 
their fflost probable use. 
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CALCULATIN8 

Basic calculating 

Operations and syibols 

Systci functions 
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Character manipulation 

Operations on lists 

Systei variables for calculating 
FILE OPERATIONS 

Dat'asets 

Naiesets 

Directories 

Systei variables for file operations 
JUD8IN6 

Preparation for responding 
Modification of the response 
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Inforiation on specific Nords in the response 
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PRESENTIN6 
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Basic display 
Graphics 
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Non-screen presentation 
Systei variables for presenting 
R0UTIN6 

Router lesson and curriculum inforiation 
Systei variables for routing 
SEQUENCING 

Naijng a unit 

Autoiatic sequencing 

Key-initiated sequencing 

Pausing and tiling 

Lesson connections and sections 

Lesson annotation and debugging 

Signing off 

Systci variables for sequencing 
Appendix 
Keysets 

Character codes 
Hexadecisal nuabers 
Powers of two 
Alphabetical index 
Systei variables 
Coiaands 



ii to vii 

CI 
C4 

CS 
C7 
C8 
CIO 
Cll 

Fl 
F3 
F7 
F9 

Jl 
J3 
J4 
JS 
JB 
J9 
J 10 
JU 
J12 

Pi 
P2 
P6 
P8 
P9 
P12 
P14 
P16 
P17 

Rl 
R2 

SI 
S2 
S7 
SB 
SIO 
SU 
S12 
S13 

A2 
A4 
AB 
A9 

II 
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These abbreviations are used in the descriptions of roasand tags: 



abbreviation 



def initi on 



linexff iney 
nuA 

string 
var 



arg 
(b) 
char 



disk 
expr 



coarse 



argument or tag entry 
blank tag 
character 

coarse-*grid coordinates 
Magnetic storage disk 
■atheeatical expression 
fine-^grid coordinates 
nuftber of 
character string 
variable 



In conditional stateaents and in stateeents where a variable is set, suffixes 
M, 0, 1, 2, etc., denote the ninus condition, 0 condition, 1 cundition, 
2 condition, etc., e.g.. 



In conditional stateeents the conditional expression is roupded (not Iruncat^:!) 
to the nearest integer. Thus, a value of *.4 results in the 0 condition being 
selected rather than the Minus condition. 

Generally, wherever a tag entry can be a nueber, a eatheeatical expression is 
also accepted. 

Coasand naaes are enclosed in dashes when they are referred to in descriptions, 
e.g., -next-. Naaes of systen variables are enclosed in double quotes, e.g., 
*'zreturn'*. Key naees are capitalized, e.g., NEXT. A function key naee followed 
by "1% e.g., NEXTl, indicates the SHIFT key is held while the key is pressed. 

CosBiands labeled "non-executable" are active only when the lesson is being 
condensed and not during execution* 

Mhen variiibles are used in the tag of certain caoieands which require naaes in the 
tag, e.g., -junpout*, the variable Aust be enclosed in parentheses to indicate 
that the inforaation needed is the contents of the variable and not a character 
string; e.g., -juspout (var)* means the file whose n&ae is contained in a buffer 
starting with variable var, while -juepout var- aeans the file whose naae is. var. 



keytype VAR,KEY0,KEY1 ,KEY2 

do EXPR,NAHEn,NAHEO,NAHEl ,NAHE2 
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Basic calculating CI 

define 

calc 

calcc 

calcs 

zero 

set 

compute 

block 



Operations and syibols C4 

+ - X ♦ r / $divr$ $divt$ « 

( ) [ ] { } « 

It o 16i 2» 31 



Systeii functions CS 

abs frac int sqrt 

alog log exp In 

sin cos tan cot sec esc 

arcsin arccos arctan 

arccot arcsec arccsc 

zk zlength zvloc 

= 9fe < > < > 

$and$ $or$ not 

$rsh$ $lsh$ $ars$ $cls$ 

$iask$ $union$ $diff$ 

coep bitcnt 



Randoi nuibers C7 

randu 
setpsra 
randp 
reeove 

restore 



Character Manipulation C8 

pack 
packc 
search 
searchf 



Operations on lists CIO 
find 



Systee variables for coeputing Cll 

zretinf 
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iii 



PILE OPERATIONS 



Datasets Fl 

setf ile 
addfile 
deHile « 
chgf ile 
getf ile 
datain 
dataout 
reserve 
release 



Directories F7 

setfile 

addfile 

deHile 

chgfile 

getf ile 

nanes 

setdir 

reserve 

release F 



Na«esets F3 



Systeft variables for file operations F9 



setrile 

addfil» 

delfile 

chgfile 

getf ile 

na«es 

setnaee 

addnase 

delnaae 

chgn^ee 

getnaae 

addrecs 

delrecs 

datain 

dataout 

reserve 

release 



zfauth(FIP) 

zfbpKFIP) 

zfbpn(FIP) 

zfbpr(FIP) 

zfeaxn(FIP) 

zfnaes(FIP) 

zfrecs(FIP) 

zftype(FIP) 

zretinf 

zreturn 



I ERIC 
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JUD6IN6 



Preparation for 
responding il 

darroM 

arroM 

endarroM 

long 

force 

eraseu 

jkey 

copy 



Modification of the 
response J3 



putd 



Inforaation on specific; Mords 
in the response J8 

getaark 

getloc 



Reference to other units 
during judging J9 

iarroM 
i judge 



Alteration of judgaent JIO 
judge 



Modification of the judging 
procedure J4 

specs 



Alteration of feedback Jll 

okMord 
noMord 



Hatching the resp... ^e J5 



Systes variables for judging Ji2 



keyword 

answer 

wrong 

answerc 

tirongc 

sxa^zt 

exactw 

ansv 

wrongv 

or 

ok 

no 

if natch 



zanscnt 

zcaps 

zentire 

zextra 

z jcount 

z judged 

zntries 

zopcnt 

zorder 

zspell 

zwcount 
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PRESENT INS 



Screen size PI 

coarse 

fine 

MindoM 

Basic display P2 
at 

atni 

Hrite 

Mritec 

show 

shoMt 

shoHb 

showo 

shoMh 

showa 

text 

textn 

erase 

•ode 

size 

rotate 

inhibit 

alloN 

Graphics P6 

dot 

dran 

box 

fill 

vector 

cirrle 

circleb 



Relocatable graphics P8 Color display P14 



rorigin 

rat 

ratni 

rdot 

rdraM 

rcircle 



Drawing graphs P9 

gorigin 

axes 

bounds 

scalex 

scaley 

labelx 

labely 

■arkx 

•arky 

gat 

gatnA 

gdot 

gdraM 

gbox 

gfill 

gcircle 

gvector 

vbar 

hbar 



Special display P12 

tab'set 

char 

plot 

charset 

getchar 

iiicro 



color 
erase 
■ode 



Non-screen presentation P16 

enable 

disable 

xout 

xin 

beep 

intrupt 



Systeii variables for 
presenting P-17 

zdevice 

zaode 

rretinf 

ZMherex 

ZMherey 

zxiin 

zysin 

zxaax 

zysax 

zblack 

zred 

zgreen 

zyelloM 

zblue 

zegenta 

zcyan 

ZNhite 
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ROuTINS 



Router lesson and curriculiie inforiation 

router 
lesson 
srjre 
status 



Systei variables for routing R2 



zldone 
zrouten 
zscore 
zstatl 



VI 1 



SEQUENCIN6 



Na«ing a unit SI 
unit 

Auto«atic sequencing S2 
do 

goto 
juApn 
juap 
iiain 

branch 

doto 

if 

elseif 

else 

endif 

loop 

endloop 

outloop 

reloop 

Key-initiated sequencing S7 

next 

next 1 

back 

backl 

stop 

nextop 

next lop 

backop 

backlop 

stopop 

help 

helpl 

data 

datal 

lab 

labl 

helpop 

helpiop 

dataop 

datalop 

labop 

lablop 

base 



Pausing and ti«ing S8 

keylist 

pause 

keytype 

press 

getkey 

clrkey 



Lesson connections and sections SIO 
use 

juepout 
cstart 
estop 
estops 

Lesson annotation and debugging Sil 
« 

step 

Signing off Si2 

finish 
protect 

Systee variables for sequencing S13 

zargs 

zclock 

zday 

zkey 

znuflpad 

zport 

zreturn 

ztouchx 

ztouchy 



RIC 
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CALCULATING 



CI 



Pdsic calculating 



define (non-executable) defines naiies of variables, constants, arrays, and 
functions; type is 16-bit signed integer (i,16:) unless specified as 
floating point (f,48: or f:), 8-bit signed integer (i,B:), or 
8-bit unsigned integer (b:); all definitions following a specified 
type have that type until a different type desiqnation is encountered 

for exasple: 

define NAHHl ,NAHE2,NAHE3 
NAKE4(ARRAYSIZE) 
i,C:NAHE5,NAHE6 
b:NAHE7 

FUNC(AR61,AR62)»EXPR 

f ,48:NAnE8,NAnE9(ARRAYSnE) 

i,16:NAHE10 

i,8:NAnEllsNAriE9,NAHE12sNAHE9 
NAHE13>:2001,NAHEUM.3 

Note: Defined naees can contain up to 7 characters and sust start 
Mith a letter. 

Up to 6 arguMcnts are pereitted in defined functions. 

One-disensional arrays are pereitted. 

Approxieately 1000 definitions are pereitted. 

Variables are allocated in neeory in the order in which they 

are defined. Constants and functions are not stored in aeaory. 

The define set ^ist be placed before the first -unit- cossand. 

A local define set is declared as a continuation of a -unit- coaaand. 
(The -define- coaaand is oaitted*) Fornats for local variables are 
the saat' as those for global variables. 

To aerge the local define set with the global define set: 

unit soieu 

aerge, global : (final colon is required) 

a,brd 

f: result 

examples of definitions: 

define a,b,c .$$ i6-bit integers 

f:radius $$ floating point 

b:char(10) %% 8-bit unsigned array of 10 eleaents 
5inh(x)=.5x(exp(x)-exp(-x) ) $$ cne-arguaent function; 
cosh(x>.Sx(exp(x)'f'exp(-x) ) $$ x cannot be previously defined 
average(5ua,K)=s5ua/N $$ two-arguiient function 

stdev(sua,sua6q,N)-sqrt( (N}(5U0sq-su«««2) / (Nx (N-1) ) ) 
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calc assigns the value of the expression on the rioht side of the 

assignnent arroH to the variable on the left side (operations and 
functions are given at the end of this subsection on Basic calculating) 

calc VAR^EXPR 

calc VAR«"CHARACTER" (single character only; character code is 
placed in the right-«ost B bits of VAR of integer type) 

calcc perforois one of several calculations depending on the rounded value 
of a conditional expression 

calcc EXPR,VAR1«EXPRH,VAR2«EXPR0,VAR3«EXPR1, ,VAR4«XPR3 

calcs sets a variable to one of several values depending on the rounded 
value of a conditional expression 

calcs EXPR,VAR«EXPRH,EXPR0,EXPR1,EXPR2, ,EXPR4 

NOTE: With -calcc- and -calcs- a blank tag entry (,,) neans no calculation is 
done for the corresponding value of the conditional expression. 

zero sets to zero a single variable or consecutive variables 
zero VAR 

zero STARTINB VAR,NUK VARS 

zero (B) (sets all defined variables to 0) 

Note: In the 2-arguient fori, the nuaiber of bits zeroed is determined 
by the type designation of STARTINB VAR. 

set sets values of consecutive variables starting at the specified 

variable, or sets values of consecutive array eleaents starting at the 
specified elenent 

set STARTINB VAR^EXPRl ,EXPR2,EXPR3, . . . (up to 95 values) 
Note: All variables must be the saae type as STARTINB VAR. 
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conpute evaluates a character string containing an expression and stores the 
result in the specified variable; the end of the string is deterained 
by the specified nunber of characters, by a coflma, by a seaicoloni or 
by a zero byte (#00) 

coipute VAR FOR RESULT, STARTING VAR OF STRING, NUH 8-BIT BYTES IN 
STRINGS 

Note: The string can contain up to 127 characters. Variables are 
not allowed, but these operators and systei functions are 
pemitted: + - r (and /) ^ (and *) ** (and superscript) 
^ * < > < > parentheses and brackets K ^ 
abs sqrt alog log exp In sin cos tan cot sec esc 
arcsin arccos arc tan arccot arc sec arccsc 

"zretinf* contains the nunber of characters evaluated, 
including terminating punctuation but not terminating zero byte 

zreturn ^ -1 if tho expression is evaluated successfully 

- 0 if the expression contains operations when 

-specs noops- is in effect 
i if the expression contains an invalid character 

- 2 if there are too lany deciaal points 
3 if the expression is too explicated 

= 4 if th(*re is an unrecognized operator 

5 if the expression has bad for^ft 

= 6 if there are unbalanced parentheses 

= 7 if the expression contains undefined words 

= 8 if a function contains an illegal argument 



block copies a block of consecutive variables into another block of 
consecutive variables 

block FROM STARTIN': VAR, TO STARTING VAR, NUH VARS 

Note: The number of 8-bit bytes copied is determined by the type 
designation of the "froai" variable. 
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I. «fM**w««v W«»sw All uai uu A 1 uiis» 

X + Y addition 

X • V subtraction 

X X Y or X * Y •ultiplication 

X ^ Y or X/Y division 

X $divr$ Y integer division, result rounded to nearest integer 

X $divt$ Y integer division, result truncated to nearest integer 

X«Y or X^ exponentiation (if exponent contains sore than 1 character, 

superscript requires SHIFT SUPER before exponent and 
SHIFT SUB after exponent) 

( )» [ 3, { } parentheses, brackets 

* assigneent of a value to a variable [e.g., var«.2xdef +.45 3 

< -"^ pi = 3.14159... 

^ = degree syebol te.g., 53. 40] 

::ueber x !<> converts nueber to radians [e.g., 5in(30xlo) or sin(30<>) 3 
nueber 4- !<> converts nueber to degrees [e.g., arc5in(.5)/lo 3 

16t or i prefix designates a hexadecieal constant [e.g., 16«4e or i4e3 

2» prefix designates a binary constant Ce.g., 2«0100 11103 

8t prefix designates an octal constant Ce.g., 811163 

" • used to place a character in the right-eost S bits of an integer variable 
[e.g. , var*"s*3 



Precedence of operations (in brief) 

operations within parentheses 
exponentiation 
Aultiplication and division 
addition and subtraction 

Parentheses can be used to insure the desired order of operations. 



Representation of nuAbers 

Nuebers are represented in twos-coepleeent fore; i.e., -X = co«p(X)+l . 

The left-eost bit of a signed integer is the sign bit (0 if integer > 0, 

1 if integer is < 0) . 
Range of values for 8-bit signed integers is -2^ to +(2^ • 1), or -128 to +127 
Range of values for 16-bit integers is -2^^ to +(2^5 - or -32768 to +3276? ! 
Range of values for B-bit unsigned integers is 0 to (2^ - 1), or 0 to 255 . 
Floating-point numbers contain 48 bits: 

left-iost bit is the sign bit (0 if nuaber > 0, 1 if nuaber < 0); 

n»?xt 15 bits contain the exponent; 

right-eost 32 bits contain the coefficient. 
Values of floating-point nuabers range froa +2^1^384 +2+16383 
Floating-point nuabers have a aaxiaua of 10 significant digits. 



aysten tunctions (argunent can be an expression where appropriate) 



abs(X) 
frac(X) 
int(i) 
sqrt{X) 

alog(X) 
log(X) 
exp(X) 
ln<X) 



absolute value of X 
fractional part of X 
integer part of X 
square root of X 



J if 



is first rounded to the r<earesf: integer 
X is within about 10'^ of the integer 



coeeon antilogaritha of 

cotiAon logarithm of X (ba^e 10 logarithea) 

e^ (natural antilogaritha of X) 

natural logarithm of X (base e logarithe) 



Mith the fol!oMing trigonometric functioniy X it in ridiAnt. For X in degrees^ 
the argument euit be t^f t.g.i iin(X*^). 



sin(X) 
cos(X) 
tan(X) 
cot(X) 
sec(X) 
csc(X) 



sine of X 
cosine of X 
tangent of X 
cotangent of 
secant of X 
cosecant of ] 



Mith the follOMing inverie trigonometric functioniy the reiult it in radianit 
For reeult in degreeii the function muit be divided by l"^, e.g., arctantX)/!'^ 



arcsin(X) 
arccos(X) 
arctan (X) 
arccot(X) 
arcsec(X) 
arccsc(X) 

zk(KEYNAME) 



zlength(NAHE) 
zvloc(X) 



inverse sine, principal values -K/2 to 
inverse cosine, principal values 0 to 
inverse tangent, principal values -K/2 to 
inverse cotangent, principal values 0 to 
inverse secant, principal valus« 0 to 
inverse cosecant, principal values -K/2 to 

ASCII code for KEYNAHE, e.g., zk(H), which has value *4d or 77^0 ; 
zk{back), wb^zh has value 1102 or 258^0 ; 

KEYNAHE eust be specified; expression is not allowed; allowed 
keynames are given in the tables in the appendix 
nueber of elements ii the array named NAHE 
absolute memory location in RAH of the variable X 



Logical operations and functions (logical "true" is -I; logical "false" is 0) 



Y 
Y 
Y 
Y 
Y 
Y 



$and$ Y 
%or% Y 



equal to 

not equal to 

less than or equal to 

greater than or equal to 

less than 

greater than 

logical "and"; result is 
logical "or"; result is ' 



equality is "true" 
if IX-YI < 
(approximately) 



"true 
true" 



(10"3 X IXI) 



not(X) 



not(X) =0 if X <0; not(X) = -1 



' only if both X and Y are "true" 
if either X or Y or both are "true' 
if X > 0 



Operations which involve comparisons of floating-point numbers have a tolerance 
of 2"26 relative difference (approximately 1.5x10"*^). 
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Bit operations and functions (use with 16-bit integers) (a bit nhich is set = 1) 



With ihlfi operations (Iriht, eUhl, $ari$, $cU$), the ehlft luit be betMetit 

0 and 16 0 SY i 16). 



$rsh$ Y 
X $lsh$ Y 
X $ars$ Y 

X $cls$ Y 

X $eask$ Y 
X $unicn$ Y 
X $diff$ Y 

COAp(X) 

bitcnt(X) 



shifts X to the right 
end of X are dropped 
shifts X to the left 
end of X are dropped 
shifts X to the right 
end of X are dropped; 
on the left end of X 
shifts X to the left, 
off the left end of X 
sets bits Mhere bits 
sets bits Mhere bits 
sets bits Hher^ bits 
ones coRpleeent of X 
nuaber of bits set in 



Y bit positions; bits shifted off the right 
Y bit positions; bits shifted off the left 

Y bit positions; bits shifted off the right 
sign bit of X is copied into vacated bits 

circularly, Y bit positions; bits shifted 
are copied into bits on the right end of X 

are set in both X ano Y 

are set in either X or Y 

are set in either X or Y 



or both 

but not both 



(bit reversal) 
X 
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Randon nunbers 



randu selects a randoa integer, saapled Mith replaceient, and places it in 
the specified integer variable 

randti VAR,HAXIHUH (selects an integer froe 1 to MAXIHUH; 

0 SHftXIHUM S (2^* - 1) ) 

Note: If the integer selected is larger than the specified variable 
type can store, only the right-eost ei^ht bits are stored. 



setperA creates a pereutation list of integers of the specified length for 
saopHng by the *randp* coeeand 

setpere LIST LENBTH, STARTING VAR OF LIST (0 1 LEN6TH 5 (2^*-l)j 

first variable of the list contains the nuaber of Integers 
not yet selected froe the list; 

in succeeding variables each bit corresponds to an integer 

in the list and is 1 if the integer has not been selected, 

0 if the integer has been selected; 

integer variables are required: 

8-bit signed variables if LENBTH < 128; 

8-bit unsigned variables if LENBTH < 256; 

16-bit variables if LENBTH 2 2S6); 

nueber of variables required: 2 ^ int[(LENGTH D/Nl, 
Hhere N is B or 16 for 8- or 16-bit variables respectively) 



randp selects an integer, saepled Hithout replaceaent, fro« the list set up 

by -setpere- or by an equivalent aethod, and places it in the specified 
integer variable; when the list is exhausted, the variable is set to 0 

randp VAR FOR STORING VALUE, STARTING VAR OF LIST 

Note: If the integer selected is larger than the specified variable 
type can store, only the right-aost eight bits are stored. 

reoiove reaoves the specified value froa a pereutation list 
renove INTEGER TO REHOVE, STARTING VAR OF LIST 



restore restores the specified value to a pereutation list 
restore INTEGER TO RESTORE, STARTING VAR OF LIST 
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Character aanipulation 



pack packs a character string starting in the specified integer variable; 

packs each character code into one 8-bit byte; if the byte count is 
not desiredi the field is blank; string can contain embedded -shoN- 
and -showa- (and -showt- if ';he value is a. floating-point variable) 

pack STARTING VAR FOR STORING STRING, VAR FOR STORING BYTE COUNT* 
STRING 

pack STARTING VAR FOR STORING STRIN",*STRING 



packc packs one of several character strings into a buffer of integer 

variables, depending on the rounded value of a conditional expression; 
packs each character code into one 8*bit byte; if byte count is not 
desired, the field is blank; string can contain embedded -shoti- and 
-shona- (and -shout- if the value is a floating-point variable) 

packc EXPR, STARTING VAR FOR STORING STRING, VAR FOR STORING 
BYTE Cj;*«NT*STRINGH»STRING0*STRINGl*STRING2«STRING4 



search searches a buffer for the first occurrence of the specified character 
string (each character code occupies an 8-bit byte) 

search OBJ , OLEN , BUF , BLEN , STRT , POSN 

OBJ - variable which contains the first character af the 

string to be found 
OLEN = nueber of 8-bit bytes in the string to be found 
BUF - starting variable of the buffer to be searched 
BLEN = nueber of 8-bit bytes in the buffer to be searched 
STRT = relative byte position in the buffer at which to start 

searching (1st position is 1; 2nd postion is 2; etc.) 
POSN = variable for storing the relative byte position in the 

buffer where the object is found (0 if found in the 

first 8-bit byte, 1 if found in the second 8-bit byte, 

etc, , -1 if not found) 



i 
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searchf searches a buffer for the first occurrence of a character string in a 



specific field within an object 
sea r ch f OB J , OLEN , 6UF , ENTR , ST RT , ELEN , BYTE , 
OBJ - variable which contains th 



POSN 

the first character of the 
string to be found 
OLEN s nueber of 8-*bit bytes in thn string to be found 
BUF s starting variable of the buffer to be searched 
ENTR 3 nueber of entries in the buffer to be searched 
STRT =5 entry in the buffer at which to start searching 
ELEN 3 nufiber of 8-bit bytes in each entry in the buffer 
BYTE ^ starting byte position within each entry for coaparison 
With the object string (1st position is 1| 
2nd position is 2; etc.) 
POSN variable for storing the relative position in the 
buffer of the entry where the object is found 
(0 if found in the first entry, 1 if found >>n the 
second entry, etc., -1 if not found) 
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Onerations on lists 



searches each variable in a list of consecutive variables for the 
first occurrence of the specified object 

find OBJ, LIST, LEN,LOC 

OBJ a variable containing the object of the search 

LIST a starting variable of the list (variables ir the list 

•ust be the sase type as the object) 
LEM = nueber of variables in the list 

LOC = variable for storing the relative location in the list 

where the object is found (0 if found in first variable, 
1 if found in second variable, etc., -1 if not found) 
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Syst&n v&ridbies for caicuiating 



zretinf set by execution of -co«pute-j contains the nuaber of characters 
evaluated^ including terainating punctuation but not terminating 
zero byte 
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KIL^E OPEEATIOSIS 
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FILE OPERATIONS 



Fl 



NOTE: Attributes of tiies: 

File naaes: up to 29 characters (letters and nuverals) followed by a 
period and a tno-letter extension (up to 32 characters total) 
extensions: .bi lesson binary file 
•ch charset 

•da dataset (includes lesson files) 
•di directory 
•Ai licrotable 
•na naneset 
•nf notesf ile 
Record sizet 128 8-bit bytes 

Extra inforaation; up to 32 8-bit bytes of extra inforiation 
Address: Fi^e Infornation Packet (FIP) nudber; up to 3 files can be 

addressed sieultaneously by the FIP nueber 

(FIP can have value 1, 2, or 3) 



In all coaeands in this section, FILE NAHE can be a literal or the 

sta'-ting 8-*bit variable of a buffer containing the file naae. A 

variable nane aust be enclosed in parentheses: (STARTIN6 VAR OF BUFFER) . 

All coaaands set "'zreturn". Values of "zreturn" are given on oaoe F10« 



Datasets 



NOTE: A dataset is created as a "new" dataset or an "old" dataset. 

New datasets can have write and read codewords, but codewords are not 
required. Old datasets cannot have codewords. 



setfile attaches the specified file to the specified FIP 



setfile FIP;FILE NAHE (read and write access for a dataset without 

codewords) 

setfile FIP;FILE NAKE,rw, (STARTING VAR FOR HRITE CODE) (read and write) 
setfile FIP;FILE NAHE ,ro, (STARTING VAR FOR READ CODE) (read only) 



addfile creates a dataset and attaches it to the specified FIP 



old dataset 

addfile FIP;dataset;ndae,FNAHE;nuarecs,NRECS 



new dataset 

addfile F!P;data5etc;naae,FNAHE;nuarecs,NRECS;wr itecode, (HCOdE) ; 
readcodi, (RCQ'dE) 

FNAHE ^ file naae, literal or (starting variable of a buffer) 
NRECS ^ nuaber of records in the file 

MCODE ~ starting variable of buffer containing write codeword 
RCODE - starting variable of buffer containing read codeword 
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c4b1X)1c1 i.WM J.l. 1. 1 - l« .... .... 

....... ..at.! u/a uiiB uataaev ai.l.«CneO CO tllB SpeCltlSQ FIP 

deHile FIP 

chqfile changes parcaeters of the dataset attached to the specified FIP 
chqfile FIP;0PTI0Nl;0PTI0N2j... 
OPTIONS include: 

naee,FILE NAHE or, naee, (STARTIN6 VAR OF BUFFER) 
info,(STARTINB 8-BIT VAR OF BUFFER WITH NEW EXTRA INFO WITH FILE) 
Hritecode,(STARTINB VAR OH BUFFER «ITH WRITE CODEWORD) (ncN dataset) 
readcode.CSTARTINB VAR OF BUFFER WITH READ CODEWORD) (nSM dataset) 

getfile stores parameters of the dataset attached to the specified FIP 
getfile FIP;NAHEVAR, INFOVAR 

MAHEVAR = starting 8-bit variable for storing file naae 
INFOVAR = starting 8-bit variable of buffer for storing file 
extra inforeation 

datain transfers data froe records on the disk to the specified buffer 
datain FIP;STARTIN6 RECORD, STARTINB VAR OF BUFFER, NUM RECORDS 

dataout transfers data froe the specified buffer to records on the disk 
dataout FIP;STARTIN6 RECORD , STARTINB VAR OF BUFFER, NUH RECORDS 

reserve sets "zreturn* in order to allow the user to reserve the dataset to 
prevent changes by eore than one user at a tiie 

reserve FIP 

Note: If the dataset is reserved elsewhere, "zretinf" contains the 
port nunber where the dataset is reserved. 

release sets "zreturn" to allow the dataset to be released 
release FIP 
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Nanesets 



NOTt: A naieset is created as an alphabetized naieset or a nonalphabttized 

nafteset* An alphabetized ^laeeset is a set of naeed records arranged in 
alphabetical order. A nonalphabetized naeeset is a set of naeed records 
arranged in en order specified by the user. 

Paraeeters set by -addfile* when the naeeset is created: 

space authorization (spaceauth): nueber of records allocated (or 
authorized) on the disk for the entire naeeset 

aaxieue nueber of naees (eaxnaees)! eaxieuft number of naees alloned 

length of each naee (naeelth): eaxieue nueber of characters in a 
naee (rangs 1 to 32) 

length of extra inforeation with each naee (infolth): eaxieue nueber 

of 8-bit bytes (range 0 to 32) 



setfile attaches the specified file to the specified FIP 

setfile FIP;FILE NAME (read and write access for a naeeset without 

codewords) 

setfile FIP;FILE NAHE^rw, (STARTIN6 VAR FOR WRITE CODE) (read and write) 
setfile FIP;FILE NAHE,ro, (STARTIN6 VAR FOR READ CODE) (read only) 



addfile creates a naeeset and attaches it to the specified FIP 
alphabetized naeeset 

addf i le F IP; naeeset; naee, FNAHE; eaxnaees, NNAMES; spaceauth, NRECS; 

nattelth,NAnLENnnfolth,INFLEN;writecod«,rifCOP£;;readcodf,rffCffO£; 

nonalphabetized naeeset 

addfile FIP; naeesetn; naee, FNAHE; eaxnaees, NNAHES; spac2auth,NRECS; 

naAelth,NAnLEN;infolth,INFLEN;Nrit6COdff, (HCOdE) fre^dcodi ,(RCQDE) 

FNAHE = file naee, literal or (starting variable of a buffer) 

NNAHES = nueber of naees allowed in the naeese^ 

NRECS = nueber of disk records allocated for the naeeset 

NAMLEN ^ nueber of characters in a naee 

INFLEN - nueber of bytes of extra inforeation with a naee 

WCODE =: starting variable of buffer containing write codeword 

RCODE =^ starting variable of buffer containing read codeword 

delfile destroys the naeeset attached to the specified FIP; the naeeset nust 
be eepty 

delfile FIP 
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ehgTiie changes paraaeters of the naaeset attached to the specified FIP 
chqfile FIP;OPTIONl j0PTI0N2j . . . 
OPTIONS include: 

naee,NEH FILE NAHE en naee, (STARTIMB VAR OF SUFFER) 
info,(STARTIM6 8-BIT VAR OF BUFFER MITH NEW EXTRA IMFO HITH FILE) 
»iritBCodB,(STARTINB VAR OF BUFFER KITH NEM HRITE CODE) 
readrode,(STARTIK6 VAR OF BUFFER HITH NEM READ CODE) 

getfile stores paraeeters of the naeeset attached to the specified FIP 

getfile FIP;MAHEVAR,INFOVAR 

NAHEVAR 3 starting 8-bit variable for storing file naee 
INFOVAR 3 starting 8-bit variable of buffer for storing extra 
information with file 

naoes reads nanes (and extra inforeation with each nase) in the naeeset 
attached to the specified FIP; stores data in the specified buffer 

nanes FIP; NAMEPOS , BUFV AR , BUFLEM 

NAHEPOS=: numerical position of first na«e to store 
BUFVAR 3 starting B-bit variable of buffer for storing names 
and extra information with each naie; foreat: 

zfbpn(FIP) bytes: first naee; 

zfbpi(FIP) bytes: information with first naee; 

zfbpn(FIP} bytes: second name; 

zfbpi(FIP) bytes: information with second name; 

etc. 

BUFLEN = number of B-bit bytes in the buffer 

Note: "zretinf" is set to the number of names (with their associated 
extra information) stored in the buffer. 

setnane selects a name in the nameset attached to the specified FIP 

setname FIP;NAME (name is a literal) 
setname FIP; (STARTING VAR FOR BUFFER C0NTAININ6 NAME) 
setname FIP;<first> (selects the first name in the nameset) 
setname FIP;<last> (selects the last name in the nameset) 
setname FIP;<next> (selects the next name in the nameset) 
setname FIP|<prev> (selects the previous name in the nameset) 

Note: "zretinf" is set to the number of partial siatches to the 
specified name. 
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addnase adds a new nate and its records to the nafteset attached to tht 
specified FIP 

alphabetized naweset 

addnase FIP;NAHE,NRECS,INFOVAR 

nonalphabetized nanes^t 

addnaee FIP;P0SN,NAHE,KREC3, INFOVAR 

POSN s position of new naee; value froe i to zfeaxn<FIP) 
NAHE » naee, literal or (starting variable of a buffer) 
KRECS > nueber of records in the naeed set of records 
INFOVAR » starting B-*bit variable of buffer nith extra 
inf oreation' Mith naoe 



delnasr destroys the selected naec and its records 
delnase FIP 



chgnaee changes paraeeters of the selected naee 
chgnaee FIP; OPTIONl ;0PTI0N2; . . . 
OPTIONS include: 

naee.NEH NAHE on naee, (STARTIN6 VAR OF BUFFER) 
info, (STARTINB 8-BIT VAR OF BUFFER WITH NEN EXTRA INFO WITH NAHE) 
position, NEW POSITION (value irom 1 to zfeaxn(FIP); valid only Nith 

nonalphabetized naeesets) 

gethaoe stores parameters of the selected nane 

getnaee FIP;NAHEVAR, INFOVAR 

NAHEVAR » starting 8*bit variable for storing naee 
INFOVAR = starting 8-bit variable of buffer for storing extra 
inforaation with naee 

addrecs adds records to the selected nane starting at the specified position 
addrecs FIP;STARTIN6 RECORD POSITION, NUH RECORDS TO ADD 



delrecs deletes records froe the selected nane starting at the specified 
position 

delrecs FIP;STARTIN6 RECORD POSITION, NUH RECORDS TO DELETE 



ERIC 
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^. a uoua ri u« uidK reuDros Tor tne seiecieo nase to a buffer 

datain FIP;STARTIN6 RECORD, STARTING VAR OF BUFFER, NUM RECORDS 

dataout transfers data froa a buffer to disk records for the selected r.a»e 
dataout FIP;STARTINB RECORD ,STfiRTINB VAR OF PUFFER, NUM RECORDS 

reserve sets "zreturn" in order to allOM the user to reserve the naieset to 
prevent changes by more than one user at a time 

reserve FIP 

Note: If the dataset is reserved elsewhere, "zretinf" contains t^e 
port number where the datasBv. is reserved. 

release sets "zreturn" to allow the nameset to be released 
release FIP 
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NOTE: A directory is a type of file that contains file naiies. 



setfile attaches the specified file to the specified PIP 

setfile FIP;FILE NAME (read and Nrite access for a directory nithout 

codtHords) 

setfile FIP;FILE NAHE,rM, (8TARTIN6 VAR FOR WRITE CODE) (read and Nrite) 
setfile FIP;FILE NAHE,ro, (STARTIN6 VAR FOR READ CODE) (read or.ly) 



addfile creates a directory and attaches it to the specified FIP 

addf ile FIP;directory;na«e|0NAHE;eaxnaa«S9NFILES;spaceauth,NRECS; 

naeelth,NAHLEN;infolth,INFLEN;Mritecodf ,flfCOOE);rfadc0de^rfiCm) 

DNAHE 3 directory naae, literal or (starting variable of buffer) 
NFILESs nueber of files alloMed in the directory 
NRECS » nusber of disk records allocated for all files in the 
directory 

NAHLENs nuaber of characters in file nases in the directory 
(value froe 4 to 32, including 3*character extension) 

INFLENs nueber of bytes of extra information with each file 
in the directory (value fros 0 to 32) 

HCODE = starting variable of buffer containing Mrite codeword 

RCODE - starting variable of buffer containing read codeword 



delfile destroys the directory attached to the specified FIP; the directory 
must be eepty 

delfile FIP 



chgfile changes parameters of the directory attached to the specified FIP 
chgfile FIP; OPTIONl ;0PTI0N2} . . . 
OPTIONS include: 

naee,NEH DIRECTORY NAHE OL naee, (STARTIN6 VAR OF BUFFER) 
infc,(STARTIN8 8-BIT VAR OF BUFFER HITH NEW EXTRA INFO WITH DIRECTORY) 
writecode,(STARTIN6 VAR OF BUFFER WITH NEW WRITE CODE) 
readcode,(STARTIN8 VAR OF BUFFER WITH NEW READ CODE) 
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getfile stores paraaeters thf dsr§ctiry attached to ths spscifisd FIP 
9etfil9 FIP|NAHEVAR,INFDVAR 

NAHEVAR 3 starting 8-bit variablt for storing directory naM 
INFOVAR 3 starting 8-bit variable of buffer for storing extra 
information Mith directory 



naees 



reads file naaes (and extra information with each na«e) in the 
directory attached to the specified FIP; stores data in the specified 
buffer 

names F IP; NAMEPOS , BUFVAR , BUFLEN 

NAHEPOS=^ numerical position of first file name to store 
BUFVAR « starting S-^bit variable of buffer f-r storing file 
names and extra information with eac^ file name; 
zfbpn(FIP) bytes: first file na a; 



zfbpi(FIP) bytes: 
zfbpn(FIP) bytes: 
zfbpi(FIP) bytes: 
etc. 

BUFLEN = number of 8-bit bytes in the buffer 



information with first name; 
second file name; 
information with second name; 



Note; -zretinf is set to the number of file names {with their 
associated extra information) stored in the buffer. 

setdir specifies a directory for use with -setfile- and -addfile- commands 
setdir DIRECTORY NAHE 

setdir (STARTING VAR OF BUFFER C0NTAININ6 NAME) 
sstdir <♦> (system default directory) 

Note? Files in a directory can be addressed without a preceding 
-setdir- command; a "path** is specified. 

For example: 

<*>/root. di /analysis. di /class, da 
<*>/main.di /characters. ch 

reserve sets "zreturn* in order to allow the user to reserve the directory 
to prevent changes by more than one user at a time 

reserve FIP 

Note: H the dataset is reserved elsewhere, "zretinf" contains the 
port number where the dataset is reserved. 



release sets "zreturn" to allow the directory to'be released 
release FIP 
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Syste« variables and functions for file .f^err^ions 



These functions are set for the file attached ta the specified FIP. 
FIP can have value of 1, 2, or 3. 



zfauth(FIP) nueber of records allocated (or authorized) on the disk for the 
attached naeeset or directory 



zfbpi(FIP) nueber of B-*bit bytes of extra inforiation for each naee in the 
attached naeeset or directory 



zfbpn(FIP) nueber of characters (8-bit bytes) in each naee in the attached 
naeeset or directory 

zfbpr(FIP) nueber of 8**bit bytes in each record in the attached file (» 128) 

zfaaxn(FIP) eaxioue nuitber of naees alloMed in the attached naeeset or 
directory 

zfnaes(FIP) nueber of naecs in the attached naeeset or directory 
zfrecs(FIP) nueber of records in the attached file 



cftypelFIP) value designating type of the attached file 
= 0 for a directory 
^ 1 for a dataset without codewords 
^ 2 for an alphabetized naeeset 
^ 4 for a nonalphabetized naeeset 
^ 5 for a dataset with codewords 



zretinf set by execution of -naaes-, -reserve-, -setnaee- 

-naees-: contains the nueber of naees stored in the buffer 
-reserve-: contains the port nueber where the attached file is 
reserved 

-setnaee-*: contains the nueber of partial eatches to the specified 
naee C^zreturn** has value 0) 



(^'zreturn" values are given on the next page) 
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if tht optration is succtssful 

if tht sptcHitd naiff ■atr'^^i lortt than on« naie in th« attachtd 

naieset (stUct* tht fin rtial tatch) 

if a natt has illtgal for*' 

if tht FIP nutfatr is QaL If 2, or 3 

if tht appropriatt filt typt is not attachtd gi. 

if no natt has stltcttd in a nattstt 

if tht filt, diriutory, or natt dots not txist 

if the attachtd filt is not tht corrtct typt for tht requtsttd 

operation 

if tht codtword argutent is oeitttd or does not tatch the filt 
codeword 

if the file or nate already exists (duplicate nate) 

if sufficient disk space is not available for the operation 

if a paraeeter has illegal value (e.^,, out of range) 

if space is not available for tore nates (nateset or directory 

is full) 

if Mrite access has not been granttd 

if the file is in use elstMhtrt on tht systet 

if the nateset or directory is not etpty 

if record nutbers extend out of range 

if reservation request and reservation status conflict: 

the file is reserved elsewhere (for -reserve-) Qr_ 

the file is not reserved (for -release-) 

if nate positions extend beyond the end of the nateset or 

directory 

(systet error) systet crashed 

if the directory has been altered 

if the required directory is too large 

(systet error) illegal request 

(systet error) lesson buffer space not available 

(systet error) physical disk space not available 

(systet error) disk read/write error 
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Additional notes on FILE OPERATIONS 
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Preparation for respondino 



darroM (non-txccutablori sttablishts a bufftr (itarting variable and nueber 
of 8*-bit bytes) for all lubtequent -arron*-* coeeandf} if •-darroii* is 
oeittedy the buffer eust be specified Mith the -arron-* coeeand 

darroM STARTIN6 VAR,NUK 8**BIT BYTES (laxiiue of 150 bytes) 



arroM places an arron on the screen at the specified location and collects 
keyset input in the specified buffer} indented coeeands nhich follon 
*arroii* are executed before processing stops to Nait for input; 
non-indented coaeands nhich follon these indented coManits are 
executed each tiee a judging key is pressed to initiate judging 

arroN L0CATI0N}STARTIN6 VAR|NUH 8-BIT BYTES (g^axieue of ISO bytes; 

LOCATION can be COARSE ql FINEX|FINEY) 
arroM LOCATION (buffer established by preceding -darrON*) 



endarroM (no tag) eust tereinate response processing; if the response is 

eatched, indented coeeands following the eatched response and indented 
coeeands following -ifeatch* are executed; if the "wrong** response is 
eatched if the response is not eatchedy ^udgeent is "no" and 
processing stops until another response is entered; if judgeent is 
"ok", response processing is cosplete and coeeands following -endarrow- 
are executed 



long Aodifies the eaxiaue nueber of character codes allowed at an arrow set 
by -arrow- or by -darrow-j reset at each -arrow- 
long NUN 8-BIT BYTES (eaxieue of 150 bytes) 



i 

> force alters the input of a response as specified; cleared at each aain unit 

? force caps (converts lower-case letters [a through zl to upper- 

case letters [A through Z3; also affects a letter entered 
at a -pause-) 

force firsterase (erases an incorrect response and contingent 

Message when the user presses any key) 
force font (displays characters in alternate font) 
force long (initiates judging when the nueber of characters 

entered reaches the lieit set by -long-) 
force left (writes response froe right to left in alternate font) 
force eicro (substitutes eicrotable definition for each keypress) 
f :)rce full (displays characters which are 16 dots wide by 

24 dots high) 
force hira (displays hiragana characters) 
force kata (displays katakana characters) 
force (B) or. ^orce clear (clears the current setting of 

-force- in this unit) 
forte clear, font (can combine tags) 

Note: Tags "full", "hira", and "kata*' are available on stations 
offering these features. 



eraseu the specified unit is executed at all subsequent arrows in the unit 
containing -eraseu- when the user erases all or part of a response 
after receiving judgaent; does not alter default judge-process erasing; 
regains in effect until reset or until a new unit is executed 

eraseu UNIT NAHE 

eraseu q (clears -eraseu- setting for remainder of the unit) 
eraseu EXPR,NAHEM,NAME0,q,NAME2,x (exaeple of conditional fom; 

argument q clears setting; arqueent x leaves setting 

unchanged) 



jkey specifies keys (in addition to NEXT) which initiate judging; cleared 
at each -arrow-; a judging key which is not a function key appears as 
the last key in the response buffer unless -inhibit jkeys- is in 
effect; naaes listed in the -keylist- coA«and are pereitted, including 
systea-def ined keylist naaes 

jkey KEY1,KEY2,KEY3 (e.g., jkey back,=,a ) 

Note: -jkey touch- automatical ly sets -enable touch-. 

copy activates COPY key and specifies a buffer containing rharacters to be 
written on the screen one word at a tiee when COPY is pressed; loads 
the string into the response buffer exactly as it appears on the 
screen; cJ.ared at each -arrow- 
copy STARTING VAR OF COPY BUFFER, NUM 8-BIT BYTES 
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Hodification of the response 



putd replaces a character string in the response buffer Mith another 

character string; the first character in the tag is interpreted as 
the delimiter between strings 

putd /STRIN61/STRIN62/ (deliiiter is /) 
putd ,STRIN61|STRIN62, (delieiter is ,) 

Note: zreturn - -I if -putd- is executed successfully 

* 0 if the replacement string Mould cause the 

response to be longer than the storage buffer 
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ion 0^ the judging procedure 



•odifies standard judging procedures for all subsequent answer 
processing at that arrow} settings are cueulative at an arrow; 
cleared at each -arrow- coesand 



specs 
specs 
specs 

specs 

specs 

specs 
specs 
specs 



specs 
specs 



nosark 

nookno 
noops 

nospell 

okcap 

okextra 
okspell 
punc 



(B) 
nookno, 0 



(prevents default answer aarkup) 
(prevents appearance of •ok* and "no") 
(prevents use of aathesatical operators in a 
nueerxcal response) 

(turns off default spelling checks; no spelling 
earkup is done; ■zspell" is not set) 
(alloNS capitalized word in the response to aatch a 
non-capitalized worvl in the tag of a response- 
•atching coeeand) 

(alloNS "extra" words in the response, i«e., words 
not in the tag of the response-Mtching coeeand) 
(alloMs any reasonable spelling of words in tho 
response) 

(allows only punctuation specified in the response- 
•atching coseand; without -specs punc-, specified 
punctuation eust be present, but additional 
punctuation eay also be present) 
(clears previous settings at this arrow) 
kcap, okspell (can cosbine tags) 



48 



JS 



Hatching the response 



NOTE: Hith the following coeeands (-keyHord"*, -answer-, -wrong-, -anf(?<^rc-| 
-wrongc-, -exact-, -exact**-, -an«v, -wrongv-) if the response eatches 
the tag or the required arguaent, subsequent indented coeeands are 
executed up to the next non-indented coeeand. 

Hith -answer-, -wrong-, -tnswerc-, -wrongc-: 
The separator between words is a space- 
Punctuation syebols are ,.?!;:/ 

Up to 40 required words are pereitted in the tag. Up to 50 words can 
be entered by the student. 

Response earkup syebols: 

word is eisspelled 

t word is capitalized incorrectly 

^ word is out of order (too far right) 

^ word is eissing 

XXX word is an extra word 



keyword checks the response for words listed in the tag; if a word is eatched, 
the variable is set to the relative position in the tag of the eatched 
word and judgeent is "ok" Czjudged" set to -1); if no word is eatched, 
the variable is set to -1, judgeent is not eade, and judging continues; 
a laxieuB of 50 words can be specified in the tag 

keyword VARtWORDOtCWORDl SYN0NYHl]«M0R02MNORD4 



answer coepares the response with the -answer- tag; checks for spelling, 

capitalization, extra words, and punctuation unless altered by -specs-; 
punctuation earks are treated ss words; sets "zjudged" to -1 if the 
response Batches the tag 

answer <EXTRA UORDS> CUORDl SYNONYHl] H0RD2 W0RD3 

(blank tag Batches a response in which nothing is entered 
or which contains only spaces and punctuation; 
-allow blanks- Bust be in effect) 

answer <a,STARTINB VAR,NUH 8-BIT BYTES> 



wrong sieilar to -answer- but for an incorrect response; sets "zjudged" to 0 
if the response Batches the tac 

wrong <EXTRA HORDS> CWORDl SYNONYHl] U0RD2 W0RD3 
wrong <a,STARTIN6 VAR,MUM 8-BIT BYTES^ 
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answerc conditional fora of -at.iwtr-; perforas checks available with -an«ii9r-| 
sets "zjudgsd" to -1 if the response eatches the required arguaent 

answerc EXPR*RESP0NSEH»RESP0NSE0*»RESP0NSE2 



Mrongc 



siailar to -answerc- but for an incorrect response; sets 'zjudged' to 0 
if the response aatches the required arguaent 

wrongc EXPR»RESP0HSEM»RESP0NSE0*RESP0NSE1MRESP0NSE3 



exact 



coapares the response with the tag for an exact character by character 
aatch; sets "rjudged' to -1 if the response aatches the tag 

exact STRIN6 (blank tag aatches a response in which nothing is 

entered; -allow blanks- aust be in affect) 
exact <a, STARTING VAR.NUM 8-BIT BYTES> 



exactw siailar to -exact- but for an incorrect response; sets "zjudged" to 0 
if the response aatches the tag 

exactH STRING 

exactH ^a, STARTING VAR.NUM 8-BIT BYTES> 



checks a nuaerical response against the first arguaent in the tag, 
with tolerance set by the optional second arguaent; sets 
"rjudged" to -1 if the response aatches the tag within the tolerance; 
tolerance can be stated as absolute deviation or percent deviation; 
if tolerance is oaitted, the response value aust aatch the tag value 

ansv E%?R,TOLiRAHCE 



Hrongv sinilar to -ansv- but for an incorrect nuaerical response; sets 

"zjudged" to 0 if the response aatches the tag within the tolerance 

wrongv E%PR,TQLERAHCE 



(no tag) placed on the line between response-aatching coaaands to 
provide alternative responses; if the tag of any coaaand linked by 
-or- is aatched, indented coaaands following the last linked 
response-aatching coaaand are executed 
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V 

ok judges response "ok" and sets "zjudged" to -1 if the rounded value 

of the tag is negative; if the judgeent is "ok", indented coeeands 
folloning -ok- are executed 

ok EXPR (blank tag is equivalent to negative value) 

no judges a response "no" and sets "zjudged" to if the rounded value 

of the tac i« negative; if the judgeent is "no", indented coesands 
following -no- are executed 

no EXPR (blank tag is equivalent to negative value) 

ifeatch (no tag) indented coeeands folloHing -ifeatch- are executed whenever 
a response is eatched, independent of judgeent ("zjudged" equals 
0, or '►I); only one -if catch- can occur for each -arrow-; -if»atch- 
eust be the last non-indented coeeand before -endarroH*- 
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Inforiation on specific Mordf. in the response 

geteark used after judging a response to give earkup information on 
individual woris in the response 

geteark POSN^HAR^UP 

POSN a relative position of the word in the response 
(first word is I, second word, 2, etc.) 

MARKUP a variable containing markup inforeation (eust be 
16-*bit integer variable) 

= -2 if the response is perfect or if no earkUp is 
done Mith th» response<*eatching coieand used 

- -1 if the position of the Mord is out of bounds 

(i.ff., if POSN > •zucountM 
= 0 if there are no errors in the word 
> 0 bits in MARKUP are set according to the 
error(s), starting at the right-sost bit 
(subscript •Z* indicates binary notation): 
(I2) a Mord preceding this Mord is eissing 
(IO2) the Hord is out of order (too far right) 
(IOO2) the word is capitalized incorrectly 
(I OOO2) the word is spelled incorrectly 
(10 OOO2) [bit not set] 
(100 OOO2) the word is an extra word 
(I 000 OOO2) this word is the last word, and a 
word which should follow is eissing 

getloc gives the screen position of the beginning (and end, if requested) of 
the specified word in the response 

getloc POSN,XBEB,YBEB,X£fJO,y£HD 

POSN = relative position of the word in the response 

(first word is I, second word, 2, etc.) 
XBEB » variable for storing th- «inex screen position of 

the beginning of the word (« -i if POSN > "zwcount") 
YBEB = variable for storing the finey screen position of 

the beginning of the word 
XEND = variable for storing the finex screen position of 

the end of the word (optional) 
VEND = variable for storing the finey screen position of 

the end of the word (optional) 
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Referenci to other units during judging 



iarroN specifies tht unit to be executed isMdiitely lifter Mch subfMutnt 
-^arroM* in a Main unit) equivalent to indented *do** coawand after the 
*-arroM-* coeeand; cleared at each ealn unit; later occurrence in the 
unit overrides an earlier setting in the unit 

iarroM UNIT NAHE 

iarroN q (clears previous setting in the unit) 

iarroM EXPR,UNITH,UNIT0,x,q,UNIT3 (exaeple of conditional fore} 

argueent q clears setting) argueent x leaves setting 

unchanged) 

ijudge specifies the unit to be executed each tiee the user^ presses a 

judging key; equivalent to non**indented *do* coeaand after *arrow^ 
folloNing indented coeaands but preceding resp^snse-eatching coeeandsi 
cleared at each tain i*nit; later occurrence in the unit overrides an 
earlier setting in the unit 

ijudge UNIT NAHE 

ijudge q (clears previous setting in the unit) 

ijudge EXPR»UNITH,UHITO, t),UNIT2tX (exaeple of conditional fore; 

arguaent q clears setting; argument x leaves setting 

, unchanged) 
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Aiteration of judgient 



judge alters the judgment rendered by judging coeeande 

judge ok (sets judgment to "ok"; sets "zjudged" to -1; 

executes subsequent coMands up to the next judging 
or non**indented coeeand before branching to ^ifeatch* 
Cor -endarroN-3) 

judge no (sets judgeent to "no" Cundinticipated]; sets 

^zjudged" to -i-l; executes subsequent coeiands up to 
the next judging or non^indented coeaand before 
branching to •ifeatch- Cor **endarroii**]) ; returns to 
the arroM for additional input) 

judge Nrong (sets judgeent to *no« Canticipated]} sets 

"zjudged" to 0; executes subsequent cosAands up to 
the next judging or non-indented coeeand before 
branching to •ifftatch* Lor •endarron-D | returns to 
the arroM for additional input) 

judge okquit (sets judgeent to "ok"; sets "zjudged" to -1; 

branches to -ifeatch- Cor -endarron-]) 

judge noquit (sets judgeent to "no"; sets "zjudged" to *ii 
branches to -ifeatch- Cor -endarroN-]} 
returns to the arroM for additional input) 

judge quit (does not alter judgeent or "zjudged*; branches to 
-ifiiiUch- Cor -endarrow]} does not return to the 
arroM even if judgeent is not "ok" and allows the 
student to leave the arrow) 

judge exdent (sets "zjudged" to 2; branches to next non^indented 
coeeand and continues looking for a eatch) 

judge exit (sets "zjudged" to 2; returns to the arrow to wait 
for additional input) 

judge ignore (sets "zjudged" to 2; stops processing, erases 

response, returns to the arrow for additional input) 

judge unjudge (sets "zjudged" to 2; continues processing coeeands 
at the saee level of indentation) 

judge rejudge (sets "zjudged" to 2; restores the original response 
Cuneodified by -putd-*, etc. 3, iriitializes "zanscnt", 
"zwcount", and closest eatch pointer; perfores 
-judge exdent- and continues looking for a eatch to 
the uneodified response) 

judge X (leaves judgeent unchanged; used in conditional fore) 

judgr EXPR,no,ok,x,wronq (exaeple of conditional fore) 
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okHord changes "ok" aessage to thi character string in the specified buffer 
(if tag is blank, aessage does not appear) 

okNord STARTING VAR OF "OK" MESSAGE, NUH 8-BIT BYTES 

noword changes "no" eessage to the character string in the specified buffer 
(if tag is blank, aessage does not appear) 

noKord STARTING VAR OF "NO" MESSAGE, NUH 8-BIT BYTES 



\ 
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Systei variables for judging 

zanscnt nuaber of response-iatching coaaands encountered at an arrow before 
the response is eatchedi s -1 if no tag is matched 

zcaps = -1 if there are no capitalization errors, » 0 otherwise 

zentire = -1 if all required words are present in the response, » 0 otherwise 

zextra « -1 if there are no extra words in the response, = 0 otherwise 

zjcount nuiiber of character codes in the response 

zjudged = -1 for any "ok** judgment 

= 0 for any "wrong* judgment (anticipated "no") 
= 1 for any "no" judgeent (unanticipated no") 

- 2 for a response which is not eatched; also set by -judge exdent^i 
-judge exit-, -judge ignore-*, -judge unjudge-, -judge rejudge* 

zntries number of attempts at the current arrow 

Topcnt nueb&r of aritheetic operations in a nuaerical response (set with 
-ansv-, -wror v-, -coopute-) 

zorder = -1 if the word order is correct, » 0 otherwise 

zspell = -1 if spelling is correct, = 0 otherwise 

zwcount nuaber of words in the response (aaxiaua of 50); set by -answer-, 
-wrong-, -answerc-, -wrongc- 
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Additional notes on JUD6IN6 
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ERIC 



PRESENTIN8 



PI 



statBS the size (in dots) of a character on the screen and detereines 
the eeaninq of coarse-grid coordinates 

coarse NUMBER OF DOTS HIDE,NUHBER DF DOTS HI8H 



states parameters of the screen for Mhlch the lesson Mas Mritteni an 
optional rectangular region can be specified by giving coordinates of 
tMO opposite corners closest to and furthest froe the screen origin) 
if a region is not specified, it is identical to the entire screen 

fine XD0TS,YD0TS,XINC,YINC,XMIN,yi(IM,XN/IX,y!f4X 

XDOTS » horizontal size of the screen in dots 
YDOTS s vertical size of the scn^en in dots 
XINC s direction of horizontal increeentt 

right if x increases froe left to right; 

left if X increases froe right to left 
YINC ^ direction of vertical increeent: 

up if y increases froe bottoe to top; 

doen if y increases froe top to bottoe 
XKIN 3 X coordinate of region corner closest to screen origin 
YHIN s y coordinate of this corner 

XMAX - X coordinate of region corner furthrist froe origin 
YHAX y coordinate of this corner 

Note: zreturn ^ if the. region fits on the screen on which the 

lesson is executed 
0 if the region does not fit 

The region is centered on the screen on which the lesson is 
executed. 

Coarse-grid coordinates always increase froe top to bottoe and 
in the direction of XINC. 

Screen origin is at upper*left corner for XINC right, YINC down 

lower-left corner for XINC right, YINC up 
lower-right corner for XINC left, YINC up 
upper-right corner for XINC left, YINC down 



establishes a rectangular window on the screen outside of which no 
display is plotted; reeains in effect until reset; LOCATION is the 
screen location and can be COARSE ol FINEX, FINEY; *'zxain'*, ''zyain*' 
and ''zxaax'') ''zyAax*' are fine-*grid coordinates of opposite corners of 
the window (closest to and furthest froe the screen origin); if no 
window is declared, these coordinates are identical to the corners of 
the region established by a previous -fine-* coeeand 

window CORNER LOCATION;OPPOSITE CORNER LOCATION 

window ;CORNER LOCATION (opposite corner at "zwherex", "zwherey") 
window (B) (resets to the region established by a previous -fine-J 
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Basic display 

at specifiis starting position oi display on ths serein; sits largin for 

display of text 

at COARSE 

at FINEX.FINEY 

atna like -at- but does not rtsit the aargin 

atna COARSE 
atna FIHEX,FINEY 

write displays text, including eabeddid inforaation 

Mrite HESSA6E, INCLUDINB EHBEDDED INFORMATION 

writec displays one of several aessages, depending on the value of the 

conditional expression; the conditional expression aust confora to 
restrictions on calculations 

Hritec EXPR»HESSABEH«HESSAeE0«HESSASEiMHESSA8E3 

NOTE; The following eabed features are available. See descriptions of the 
individual coaaands for definitions of the arguaents. 

<shOH,EXPR^ or <s,EXPR^ 

<shOHt,EXPR, LEFT, RIGHTS or U,EXPR,LEFT,RI8HT> 

<shOMb,EXPR,NUK BITS^ or <b,EXPS,NUH BITS^ 

<5hoi»o,EXPR,NUH PLACES^ or <o,EXPR,NUH PLACES^ 

<shoHh,EXPR,NUH PLACES^ or <h,EXPR,NUH PLACES^ 

4shoMa, STARTING VAR,BYTE CQUNT> or <a, STARTING VAR.BYTE COUNTS 
<at, COARSER <at,FINEX,FINEY^ 
<atna, COARSEN; <atna,FINEX,FINEY ► 

shoH displays a value in deciaal notation; displays up to 3 digits to the 
right of the deciaal point and up to 10 digits total 

show EXPR 

showt displays a value in deciaal notation in the specified foraat 

showt EXPR,Pt^C£S UF7 OF diCIHAL POIHT ,PLACEi, RIGHT OF DECIHAL POIKT 
(foraat, if oaitted, is 4,3; if third arguaent is oaitted, 
no places are shOMn to the right of the deciaal point) 
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shOMo displays an intsgvr valuv in binary notition; displiyi thv ^pvcifitd 
nuiber oi bits, counting froi tht right tnd of thi value 

shoMb EXPR,NUn BITS 



shoHo displays an integer value in octal notation; displays the specified 
nueber of places, counting froe the right end of the value 

shoHO EXPR.NUH PLACES 



shoHh displays an integer value in hexadecieal notation; displays the 

specified nueber of places, counting froa the right end of the value 

shoHh EXPR,NUH PLACES 



shOHd displays characters in the specified integer variable(s), reading froe 
the left end of the buffer; each character code is in an 8-bit byte 

shOHa STARTING VAR,NUH 8-BIT BYTES 



text displays contents of an alphanumeric buffer line by line; tht end of 
a line eust be indicated by an 8-bit byte equal to 0; not affected by 
-size- or -rotate- 
text STARTING VAR,NUH 8-BIT BYTES TO DISPLAY 

textn similar to -text- except lines of text are nuebered to the left of 
each line; not affected by -size- or -rotate- 

textn 6UF,LEN,DISP,FNUH,LNUn,HAX 

BUF » starting variable of the buffer Mhich contains text 

LEN » total nueber of 8-bit bytes to display 

DISP B variable for storing the nueber of 8-bit bytes 

displayed plus 1 (not affected by the value of HAX) 
FNUH c line nueber of the first line displayed (if equal to 0, 

no text is displayed) 
LNUH s line nueber of the last line displayed (eaxieue is 31) 
HAX =: eaxieuB nueber of 8-bit byte& to display per line 

(can be less than the nueber of bytes indicated by the 

placenent of the end-of-line earker, an 8-bit byte 

equal to 0) 

Note: zreturn -1 if FNUH and LNUH are in the range 0 to 31 
3 0 otherwise 



NOTE: Kith -text- and -textn-, "zretinf** contains the nuaber of lines 
displayed on the screen. 

S3 



•rat» (B) (ciUfif full-icrtm irats) 

■rati NUH CHARACTERS TO ERASE 

eras* NUH CHARACTERS PER LINE, NUH LINES 



aodi specifiif display lodt (sii systii variabli "ziodi") 

■odt Nriti (norial wrltlnQ itati] Nritii silicted dots) 
■odt irasi (irasis silicttd dots) 
■odt rtwritt (irasis and r«writts in ont stip) 
lodi invirst (displays dark characttrs on light background) 
■ods EXPR.trasi, nriti, x.lnvirst (txaaplt of conditional foraj 
arguaant x liavis Nriting aodi unchanged) 

Tht Boda is rasat to "urita" aftar any full-scraan arasa, in 
particular at a aain unit. HoNavar, thi aoda is unchanged if 
the previous unit contained -inhibit erase-. 



Notet 



size specifies bold-face writing aL «»ts size for relocatable coaaands 
{-rdraw-, -rcircle-, ate.) 

size SIZE (does not affect writing) 

size SIZE IN X DIRECTION,SIZE IN Y DIRECTION 

size bold (specifies bold-face Nriting) 

size 0 2L size (B) (restores standard writing) 

rotate sets angle for relocatable coaaands (-rdraw-, -rcircle-, etc.) 

rotate AN8LE IN 0E6REE8 (does not affect writing) 

rotate 0 ol rotate (B) (restores noraal display direction) 
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TV^^.j.i^ .^&4i.«» ^..i. ^^Lm. ...i^ ki.^i..^ 

weTaUik aebbiiiQs 4ii vsuii ««4ii uiiiv aret ^iiiiiiu^v uaoh's^^ muu 

^alloM arroMydisplayyerast, keysy jktyi- • Thest stttings ar9 in eHsct 
unless altered by -inhibit- and -alloM-. 



inhibit disables certain default actions in a unit| settings are cleared at 

each lain unit and default settings are restored} effect Mithin a unit 
is cueulative: i.e., later occurrence of -inhibit- is added to the 
effect of an earlier occurrence 

inhibit arrow (prevents plotting of the rtspon»e arroM) 

inhibit blanks (prevents judging if a judging key is pressed before 

a response is entered; default setting) 
inhibit display (prevents plotting of a display but updates screen 

position "ZMherex**, "ZMherey** as if plotting had 

occurred) 

inhibit erase (prevents full-^screen erase when proceeding to a nen 
•ain unit; retains status of "zwherex*, "ziiherey*, 
*'zaode*', and -enable-) 

inhibit jkeys (prevents a non-function "jkey" fro« being stored as 
the last key in the response buffer) 

inhibit keys (prevents keyset input froe breaking through -pause-) 

inhibit (B) (re-establishes the default settings in this eain unit; 
equivalent tot -inhibit blanks- and 
-al 1 OM arroM, di spl ay , erase, j keys, keys- 



alloN pereits actions which have been inhibited in the unit by -inhibit-; 

effect Mithin a unit is cueulative: i.e., later occurrence of -allON- 
is added to the effect of .aa earlier occurrence 

allow arroM (allOMS the response arroM to be plotted) 

alloM blanks (allows null input at a response arrow; default is 

-inhibit blanks-) 
allow display (allows noreal plotting of display) 
allow erase (allows a full-screen erase it a new eain unit) 
allow jkeys (allows a non-function *jkey** to be stored as the 

last key in the response buffer) 
allow keys (allows keyset input to break through -pause-) 
allow (B) (establishes settings opposite to default settings; 

equivalent to: -allow blanks- and 

-inhibit arrow, di splay, erase 9 jkeys, keys- 
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Hith -dot-, -dran-, -box-, -fill-, -vtctor-, LOCATION is tht scrttn 
location and can be COARSE SL F1NEX,FINEY. Coarst-qrid and fint-qrld 
coordinates can ba aixed in tags with ion than oni arguacnt. 



draws a dot at the specified screen location 
dot LOCATION 



draws a dot, line, or line-drawn figurej after execution, "zwherex" 
and 'zwherey" are set to the last point plotted 

draw LOCATION (equivalent to -dot-) 

draw L0CATI0N1JLOCAVI0N2 (draws a line) 

draw LOCATION1|LOCATION2;LOCATION3 (draws connected lines) 

draw {LOCATION (draws a line froe the currsnt scrten location to 

tht spscifitd location) 
draw LOCATI0Nl}L0CATI0N2iikipiL0CATI0N3}L0CATI0N4 

("skip* tovts to a nffM position without plotting) 



draws a rectangle with the specified corner locations and thickness; 
after execution, •zwherex', "zwherry" are set to the corner of the 
box (with thickness included) closest to the screen origin 

box CORNER LOCATION; OPPOSITE CORNER LOCATIDN/OOTS THICK 
box {CORNER LOCATIUN/BOTS THICK (opposite corner at current 

"zwherex", "zwherey") 
(draws a rectangle with corners specified by previous 
-window- coeeand or -fine- coeaand; equivalent to 
-box zxein,2yein;zxeax,zyeax-) 

Note: Thickness, if oeitted, 0, 1, or -1, is 1 dot. Negative 

thickness extends inward; positive thickness extends outward. 



fills (-iode write- or -eode rewrite-) or erases (-eode erase- or 
-aode inverse-) a rectangular area on the screen; does not affect the 
setting of "zwherex", "zwherey" 

fill CORNER LOCATION;OPPOSITE CORNER LOCATION 

fill ;CORNER LOCATION (opposite corner at "zwherex", "zwherey") 

<B) (fills in a rectangle with corners specified by previous 
-window- coaaand or -fine- coaaand; equivalent to 
-fill zxain,zyainjzx«dx,zyaax-) 
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Victor dr£^£ 2 vsctsr sysbol with spscifisd t^il 2nd h9dd locations dnd 
head size 

vector TAIL LOCATIOM;HEAD LOCATION;SIZ£ 

vector ;HEAD LOCATION/SIZE (tail at "zwherex", "zwherey') 

Not3: SIZE, if oiitted, is 10 or U dott for Aoderate-IenQth vectors. 
Negative size indicates open amiMhead. 

Isizel>l is absolute (in screen dots); IsizeKl is relative 
to the length of the vector* 



circle drans a circle with the specified paraeeters; the center is £t the 
current ^zwherex", "zwherey"} after execution, "xwhrtrex", "zwhirey" 
ar^ set to the center for a one**argueent tag and to the end of the 
last line drawn for the three-argusent tag 

circle RADIUS IN D0TS,Sr>lft7 AHBLifm AHGLE 

(second and third arguments are optional: if oeitted, 
START ANGLE is 0"^ and END ANGLE is 360^; degree syebol is 
oeitted; angles are eeasured in degrees froe START ANGLE, 
frott positive x direction toward positive y direction; 
counter-clockwise if screen origin is at lower-left corner 
or upper-right corner of screen 

clockwise if screen origin is at upper-left corner or 
lower-right corner of screen 



circleb sa«& ootions as -circle- but draws a broken circle 
circleb RADIUS IN DOTS, STX/^T AHGL£,iHU AHBLi 
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rorigin establishes a -relocatable" origin for use Mith -rat-, -ratne-, 

-rdot-, TdraM-, and -rcirclt-j resains in effect across eain unit 
boundaries until resetj initially set to -rorigin 0,0- upon entry to 
a lesson 

rorigin FINEX,FINEY 

rorigin (B) (sets relocatable origin to "zHherex", -ZHherey") 

NOTE: Subsequent relocatable coeeands are affected by preceding -rorigin-, 
•size-, -rotate-, and XINC and YIMC in the -fine- coeeand. 



sieilar to -at- but relative to the -rorigin- location; affected by 
-size-, -rotate-, and -fine- 
rat X-LOCATION, Y-LOCATION 

<B> (equivalent to -rat 0,0-, i.e., the current -rorigin' 
location) 



sieilar to -rat- but does not reset the left eargin (see -atne-) 
r a t n e X -LOCAT I ON , Y-LOCAT I ON 



draws a dot at the specified position relative to the -rorigin 
location; affiscted by preceding -size-, -rotate-, and -fine- 

rdot X-LOCATION, V- LOCATION 



sieilar to -draw- but figure is relative to the -rorigin- location; 
affected by preceding -size-, -rotate- and -fine-; *ZMherex" and 
•zHherey" are set to the last point plotted 

for exaeplet 

rdraw X1,Y1}X2,Y2 (draws a line relative to -rorigin-) 



rcircle saee options as -circle-; si?e and orientation are affected by -size- 
and -rotate-; direction of plotting is affected by -fine-; gives an 
ellipse if preceded by two-argueent -size- with unequal argueents; the 
specified radius is the radius before being affected by -size- 
(see -circle-) 

rrircle RADIUS IN dQlS, START AHGLE,EHd AH6LE 



ratne 



rdot 



rdraw 
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Drawing graphs 



gorigin specifies location of the origin of the graph; all other display with 
graphing coeeands is relative to this orlginj retains in effect across 
■ain unit boundaries until reset; initially set to *gorigin OyO** upon 
entry to a lesson 

gorigin F1NEX,FINEY 

gorigin (B) (sets graph origin to "ZMherex", "ZMherey") 



axes specifies lengths of the axes and draws the axes; x and y values are 
in dots relative to the *gorigin* location 

axes NEGATIVE X, NEGATIVE Y, POSITIVE X, POSITIVE Y 
axes POSITIVE X, POSITIVE Y 

Note: To draw one*quadrant axes (other than both positive axes) with 
labeling on the outside o^ the axes, use f our*argueent fore of 
the tag nith argueents corresponding to eissing axes set to 0« 



bounds specifies lengths of the axes but does not draw the axes (i.e*, axes 
are invisible); x and y values are in dots relative to the -gorigin- 
location 

bounds NEGATIVE X, NEGATIVE Y, POSITIVE X, POSITIVE Y 
bounds POSITIVE X, POSITIVE Y 



scalex specifies the eaxieua value and the value at the origin on the x axis; 

reset with each new -axes- or -bounds-; reeains in effect across eain 
unit boundaries until reset 



scalex MAXIMUM VALUE OF X, VALUE OF X AT ORIGIH 
(value at origin, if oeitted, is 0) 



scaley saee options as -scalex-* but for the y axis 

scaley MAXIMUM VALUE OF VALUE OF Y AT ORIGIH 
(value at origin, if onitted, is 0) 



NOTE: All subsequent graphing coaaands are in appropriate scaled units. 
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labelx 



specifies aark intervals, draws .arks, and labels the x axis (with the 
spscified nufibef- of places to the left and right of the deciaal point) 

labelx MAJOR INTERVAL, MINOR INTERVAL, MARKSIZE, LEFT, RIBHT 



labely saae options as -labelx- but for the y axis 

labely MAJOR INTERVAL, MINOR INTERVAL, MftRKSIZE, LEFT, RI3HT 

oarkx specifies nark intervals; draws aarks on the x axis with no labels 
• arkx MAJOR INTERVAL, /fJMOfi IHTERVAL,nARKSIZE 

oarky sane options as -aarkx- hut for the y axis 

•arky MAJOR INTERVAL, /flMfi IH7ERVAL,hARKSlZE 

NOTE: With -labelx-, -labely-, -aarkx-, -aarky-s 

MINOR INTERVAL = 0 no ainor aarks (or can be oaitted with -aarkx-, 

-aarky- if MARKSIZE is also oaitted) 
MARKSIZE = 0 noraal aarks (or can be oaitted with -aarkx-, -aarky-) 
= I aajor aarks extending to the bounds of the graph 
= 2 all aarks extending to the bounds of the graph 



gat sioilar to -at- but specifics the screen location relative to the 

-gorigin- location and in scaled units 



gat X-LOCATION,Y-LOCATION 
9at (B) (equivalent to -gat 0,0-, i.e. 
location) 



the current -gorigin- 



gatno sioUar to -gat- but does not reset the left aargin (see -atna-) 
gatnn X-LOCATION, Y-LOCATION 



gdot 



draHS a dot at the specified position relative to the -goriqin- 
location and in scaled units 

gdot X-LOCATION, Y-LOCATION 



gdraw like -draw- but relative to the -gorigin- location and in scaled units; 

after execution "zwherex", "zMherey" are set to the last point plotted 
for exanple: 

gdraw Xl,Yl;X2,Y2 (draws a line on the graph) 
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gbox same options as -box- but draws a rectangle relative to the -gorigin* 
location; affected by preceding -scalex- and -scaley- (see -box-) 

gbox CORNER X, CORNER Y;OPPOSITE CORNER X, OPPOSITE CORNER Y; 
DOTS THICK 

gbox ;CORNER X, CORNER Y;DOTS THICK (draws a box with opposite 
corner at current "zwherex", *zwherey") 



gfill similar to -fill- but fills (-eode write- or -eode rewrite-) or 

erases (-wode erase- or -eode inverse-) a rectangle relative to the 
-gorigin- location; affected by preceding -scalex- and -scaley-; not 
affected by -size- or -rotate- (see -fill-) 



gfill CORNER LOCATION; OPPOSITE CORNER LOCATION 



gcircle saoe options as -circle- but 
-'Scaley; draws an ellipse if 
different (see -circle-) 

gcircle RADIUS IN DOTS,ST>l«T 
(specify basic rad 



is affected by preceding -scalex- and 
the -scalex- and -scaley- settings are 



AH6LE,EHd AHGLE 

ius before affected by -scalex-, -scaley-) 



gvector saae options as -vector- .except draws vector sysbol relative to the 
-gorigin- location and in scaled units (see -vector-) 

g vector XTAIL,YTAIL;XHEAD,YHEAD;SIZ£ 

gvector ; XHEAD, YHEAD;SIZ£ (tail at "zwherex", **2HherBy") 



vbar draw3 a vertical bar at the specified location relative to the 
-gorigin- location and in scaled units 



vbar X-LOCATION,HEISHT 



hbar draws a horizontal bar at the specified location relative to the 
-gorigin- location and in scaled units 



hbar LENGTH, Y-LOCATION 
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Special display 



specifies 10 tabulator settings for use nhen the TAB key is pressed 
at an arrowj each setting is an 8-bit byte which gives the horizontal 
coarse-grid position on the screen; settings reiain in effect until 
reset by another -tabset- coeaand 

tabset STARTING B-BIT VAR CONTAININB TAB SETTINBS 
tabset (B) (clears previous -tabset- settings) 



char pereits specification of specially designed characters for display 

char NAME , COLl , C0L2 , C0L3 , C0L4 , COLS , C0L6 , C0L7 , C0L8 

char NAME, STARTING 1&-BIT VAR CONTAININB COLUMN PATTERNS 



Note: 



In the 9-ar9u«ent fore, COLl through E0L8 specify Nhich of the 
16 dots are lit in each of the 8 coluens of the character. In 
the 2-argueent fore, STARTIN6 VAR is the first of 8 consecutive 
l&-bit variables, each specifying the dots in each of the 
8 coluan" , as in the 9-«r9ueent fore. 

NAME can be a nueber or a defined constant. NAME represents 
the alternate font eeeory location and aust be in the range 

32 to 126 ai. 160 to 254. 



plot displays the contents of the specified alternate font aeaory location 

plot EXPR (EXPR gives the alternate font eeeory location) 
plot NAME (NAME is a defined nuaerical constant which is the 
alternate font aeaory location) 

Note; Memory location «ust be in the range 32 to 126 or. 160 to 254. 



charset loads the specified character set into the station's aeaory 
charset CHARSET NAME 

charset (STARTING VAR) (variable naae aust be enclosed in parentheses) 

Note: zreturn = -l if the charset is loaded successfully 
= 0 if the charset is not found 
= +1 if an error occurs in reading the disk 



qetchar copies the pattern in the specified alternate font aeaory location 

into the specified buffer (8 consecutive 16-bit integer variables ol 
16 consecutive 8-bit integer vari-ibles); one coluan of the pattern is 
stored in each 16 bits 

getchar NAME, STARTING VAR 

Note; NAME can be a nuaber or a defined constant. 



ERIC 
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loads the specified fiicrotable into the station's aeecry 
eicro MICROTABLE NAHE 

licro (STARTIK6 VAR) (variable naee aust be enclosed in parentheses) 
Micro (B) (release aeeory space used by the eicrotable) 

Note: zreturn » -1 if the eicrotable is loaded successfully 
s 0 if the eicrotable is not found 
» ^1 if an srror occurs in reading the disk 
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Color display 



These features are available only on a station with color display. 

Definitions used in this subsection on color display: 
prieary colors: "zred", "zgreen", "zblue" 
secondary colors: •zyellow" <"2red* ^ "zgreen*) 

"zcyan" ("zgreen" ♦ "zblue") 

■zagenta" ("zr-ed" ♦ "zblue*) 
"ZHhite": contains all prieary colors ("zred" ♦ "zgreen** + "zblue") 
"zblack": contains no colors 

character grid: the latrix of dots coeprising the figure (1 bits or dots) 
and field (0 bits or "o" dots) of a character 

PPPPPPPP POPPPPPP 

22222222 ppppppop 

S2SS222S ppp»#ppp 

aSSSSSS2 peppo#pp 

SSSSSSS2 poppoppp 

^ 'PPP^PPP POOOOOPO 

^ SSSS22S2 ppoooppp 

SSSS2S22 poppoppo 

22222222 p©ppoppo 

22222222 pppppppp 

PPPPPPPP pppppppp 

22222222 ppppopop 
22222222 pppppppp 

POPPPPPP PPPPOPPO 

screen colors color of the screen outside the rharacter grid (figure ♦ field) 
FOREBRNDs foreground color 
BACK6RND: background color 

MASK: eask color; displays color coeponent(s) coieon to the eask color and 
any specified color (foreground, background, and screen) { e.g., if «ask 
color is eagenta and foreground color is cyan, display color is blue; 
if aask color is white, display colors are the sane as the specified colors 



color spacifies colors for display 

color F0REBRND,BACKBRND,I1ASK 

Notes Colors are initially set to: -color zcyan ,zblack,ZHhite- . 
A blank argument indicates color setting is unchanged. All 
three arguee:(ts cannot be blank sieultaneously. 
A full-screen erase fills the screen with the nasked background 
col or. 

Screen color is initially black. 
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NOTE: Colors displayed by commands --erase- and -sode- are affected by HASK. 

er4se erases all or part of the color display 

erase (B) (tills the screen with the ftafked background calor) 
erase NUH CHARACTERS (fills a rectangle NUH CHARACTERS long and 

1 character high with the Masked background color) 
erase NUH CHARACTERS, NUH LINES (fills a rectangle NUH CHARACTERS 

long and NUH LINES high with the easked background color) 



Qode specifies display aode 

aode write (figure in the lasked foreground color against the 

easked screen color) 
aode erase (figure in the tasked background color against the 

easked screen color) 
Aode rewrite (figure in the lasked foreground color and field 

in the easked background color against the easked 

screen color) 

node inverse (figure in the aasked background color and field 
in the easked foreground color against the easked 
screen color) 
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Non-screen presentation 



enable alloHS input froe the touch panel and froe external devices; disabled 
at each eain unit 

enable touch 
enable ext 

enable touch, ext (can coebine tags) 

Note: At the end of a unit containing -enable touch-, a touch Input 
is equivalent to pressing NEXT, 
Thi» touch panel is disabled at each aain unit. 



disable prevents input froe any device except the keyset} this is the noreai 
state of the station; the touch panel is disabled autoaatically at 
the beginning of each eain unit 



disable touch 
disable ext 
disable touch, ext 



sends data (in 8-bit bytes) contained in the specified variables to an 
external device; data is read starting with the left-eost byte 

xout DEVICE NUMBER, STARTING VAR,NUH 8-BIT BYTES TO SEND 



xin collects data (in 8-bit bytes) froe an external device and stores.it 

in the specified variables starting at the left-eost 8-bit byte 

xin DEVICE NUMBER, STARTINB VAR,NUM 8-BIT BYTES TO STORE 



beep (no tag) rings the sound device on the station 



intrupt specifies a unit to execute (via -do-) nhen an interrupt is received 
free an external device 

intrupt UNIT NAME 

intrupt EXPR,NAHEM,NAME0,x,NAME2,q (exaeple of conditional fore; 

irgueent q clears setting; argui*t*nt x leaves setting 
unchanged) 

Note; External interrupts are autoeatically disabled Nhen the 

interrupt-handling unit is executed. The last coneand of this 
unit should be -enable ext- to re-enable external interrupts. 



76 



P17 



System vAriables for presenting 



zdevice gives inforaation on the eost recent input to the station 
s 0 if eost recent input is froe the keyset 
» 1 if eost recent input is froe the touch panel 
s 2 through 7 if eost recent input is froe an external device 



zeoda » --i Nith -*eode erase-* 

» 0 with -eode rewrite- 

= 1 Nith -eode write- 

3 2 with -eode inverse- 



zretinf set by execution of -text-, -textn-; contains the nueber of lines 
of text displayed 



zwherex current value of the fine-grid x location 



zwherey current value of the fine-grid y location 



zxsin fine-grid x location of the corner closest to the screen origin of the 
rectangle established by the -window- coeeand or the -fine- coeeand 



::yein fine-grid y location of the corner closest to the screen origin of the 
rectangle establ itched by the -window- coeeand or the -fine- coeeand 



zxeax fine-grid x location of the corner furthest froe the screen origin of 
the rectangle established by the -window- coeeand or the -fine- 
coeeand 



zyaax fine-grid y location of the corner furthest froe the screen origin of 
the rectangle established by the -window- coeeand or the -fine- 
coeeand 



zblack 

zred 

zgreen 

zyel low 

zblue 

zegenta 

zcyan 

zwhite 



available on color tensinals 
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Additional notes on PRESENTIN6 



ROUTIISO 



R 
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Router lesson and curriculue indorsation 



router declares that the specified lesson is the router lesson in use 
router NAHE 

router (STARTIN8 VAR) (variable nate aust be enclosed in parentheses) 

lesson sets the system variable *'zldone" to indicate 'whether a lesson is 
considered coiplete 

U-^son complete (sets "zldone" to -1) 
lesson incoMplete (sets "zldone* to 0) 
lesson no end (sets 'zldone* to ^l) 

lesson EXPR|COMplete,incoepleteyX yno end (exaaple of conditional 
forn; argument x leaves "zldone* unchanged) 



score places the value of the tag, rounded to the nearest integer, into the 
systee variable "zscore" 

score EXPR (value froM 0 to 100) 

score (B) or score NEGATIVE VALUE (sets 'zscore' to -1) 



status roads the status area in eeaory and stares z. value in the spf/CifieJ 
buffer or^ writes into the status area and changes its value to the 
value contained in the specified buffer; status area has length of 
64 8-bit bytes 

status leaojSTARTINB VAR,NUW 8-BIT BYTES (re^ds status and stores 

its value in the buffer) 

status write;STARTIN6 VAR,NUH 8-BTT BYTES 'changes the status to 

th& valuR in the bufter) 

Note: The status buffer is preserved during -juapout- fro* an 

instructional lesson to the router lesson. The router can then 
store the status infornation on disk and recover it later to 
establish a status upon re-entering the lesson. 
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Syste« variables for routing 



zldone 



= -1 
= 0 
= +1 



if the U5«r has encountered -lesson coeplete- 
if the user has encountered -lesson incoeplete- 
if the user has encountered -lesson no end- 



zscore 



rounded value of the tag of the -score- coaeand (value froe 0 to 100) 
can be set to -1 nith -score (B)- or -score NE6ATIVE VALUE- 



zrouten 



indicates entry conditions to the router lesson: 

= 0 if this is the first entry to t-he router lesson 

= I if this entry to the router is via -juapout- 

= 2 if the router is returned to when the end of the instructional 

lesson is reached 
= 3 if the router is returned to nhen the instructional lesson is 

tereinated by STOPl keypress 
= 4 if the router is returned to Mhen an execution error occurs in 

the instructional lesson 



zstatl 



length of status area in eeeory; 64 8-bit bytes 



Additional notes on ROUTING 
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N^^ifi') ^ unit 



unit naaes and initiates a section oi a lesson (called a unit) nhich can be 
referred to by other sequencing cosaands 

unit NAHE (eaxiaue of 8 characters in NAHE) 

unit NAHE(VVAR1,VVAR2,VVAR3;AVAR1,AVAR2) (fore nith "value* 

arguments and "address" arguatnts; value arguaants can be 
constants or variables; address arguaents aust be variables) 
unit NAHE(VVAR1,VVAR2) (valve arguaents only) 

unit NAHE(;AVAR1,AVAR2,AVAR3) (address arguaents only) 

Note: Haxiaua length of a condensed unit is about 3000 8-*bit bytes* 
No unit can be naaed "q" or "x"« 

A aaxiaue of 10 arguaents total can be accepted by a unit. 
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Autoiatic sequencinQ 



NOTE: CoAiands -do-, -goto-, -juapn-, and -juip- can have the conditional fora: 

goto EX PR , NAMEM , NAMEO , NAME I , x , NAME3 , q 
do EXPR,NAHEM,MAME0,x,q,NAHE3 

ArguMnt x is equivalent to absence oi the coMnand; arguaent q is 
equivalent to a branch to an eepty unit. Special case is -do q-, 
which is equivalent to -goto q-. Arguaent q is not valid with -juap-. 

These coaaands can pass up to 10 values to a unit with arguaents, e.g.: 

goto NAHE(VALUE1,VALUE2,,VALUE4) (values can be e<pr8ssions) 

unit NAME(VARl,VAR2,VAR3,VAR4) {VAR3 is uncharged) 

or 

do NA«E(VALUEl,VALUE2;VARl,VAR2,VAR3) (only -do- can pass 

address arguments) 

unit NAI1E(VVARI,VVAR2;AVAR1,AVAR2,AVAR3) 
exaaples of passing arguaents: 

passing value arguaents 

unit give 

f: value 
calc value«sin(65*>) 

goto take(valuB) $$ can also pass the function itseH 
** 

unit take(pass) 
f :pas3 

♦ arguaent defined in local define set — saae type as passed paraaeter 
show ' ass 

passing value arguaents and address arguaents 

unit give 

f tresult 
do take(25;result) 
show result 

♦ value arguaent— value or variable; address arguaent — variable only 
*t 

unit take(val;addr) 
f:addr 
i ,8sval 

« defined arguaents have saae types as passed paraaeters 

calc addr<«og(val) it "result" in unit "give" is set to saae value 

aore exaaples on the n^xt page 
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unit give 

i ,8:array(10) 

zero array(l),10 $$ zero array before packing inforiation 

pack array(l) ,#sin(6S^) 

do take(10;array) %% pass entire array as address arguiient 

unit take(len;f un) 

i ,8:len,fun(10) 

f :result 
compute result yfun ( I) ylen 
shoH result 

passing an array of length deterained by prograi 

unit give 

i ,8:array (10) ,nuachr 
pack array(l) ^nuAchrtsin (65^) 
do take (nuAchr; array) 

unit take(len;fun) 

i y8:len,funU) 

f: result 
co«pute result , fun (1) ,len 
show result 



do causes execution of the specified unit, without screen erase or 

change of sain unit; returns to the original *:nit to execute coMands 
following -do- 
do UNIT NAME 



goto causes execution of the speci-'ied unit, without changing eain unit and 
Without nain-unit initializations (including screen erase); does not 
return to the original unit to execute coaiands following -*goto*; does 
not clear the -do- stack 

goto UNIT NAHE 



juapn juAps to the specified unit but does not do any initializations, such 
as main unit, screen erase, etc.; clears the --do- stack 

juffpn UNIT NAHE 



causes execution of the specified unit, with a full-screen erase 
(unless the erase is prevented: see -inhibit erase-) and change of 
aain unit; perforns initializations associated with entering a lain 
unit; does not alter base-unit setting 

jufip UNIT NAHE 



juap 



ifiain specxfiss a unit to execute at the start of every nain unit in the 

lesson; later occurrence of the coeeand overrides an earlier setting; 
equivalent to -do- at the beginning of each aain unit 

isiain UNIT NAME 

iflain q (turns off -iiain- setting for remainder of lesson or 
until reset) 

iaain EXPR,NfiMEN,NAHE0,x,NAHE2,q (exaeple of conditional foraj 
arguaent q clears setting; arguaent x leaves setting 
unchanged) 



: The following two coaaands (-branch-, -doto-) perait branching or 

looping within a unit to a line with a statenent label. The line with 
the statement label aust be in the saae unit as -branch- or -doto-. 
The statement label aust start with a digit and can contain a aaxiaua 
of 7 characters, consisting of digits and letters only. 



branch causes a branch to the line with the specified statement label 
for exanple: 



5a VAR«EXPR 

do soiieu 

write soae aessage 

branch EXPR,5a,x (arguaent x causes fall-through to the next line 

in the unit) 



causes iterative execution of lines of the prograa between -doto- and 
the line with the specified state«ent label while changing a counter; 
the labeled line aust have a blank tag 

for example: 

doto 2sync,VAR«INITIAL EXPR, FINAL EXPR, STEPSIZE EXPR 

do sooeu 

Krite soae aessage 

• 

« 

2sync (B) 



Mote; Stepsize, if oaitted, is +1. Stepsize can be negative. 

The loop variable aust be an integer variable. Its value is 
undefined after coapletion of the loop. 



ss 



NOTE: The following four coAnands (-if-, -elseif-, -else-, and -endif-) pcrait 
branching within a unit. Logical value of an expression is "true" if 
its rounded valte is -1 and "false* if Its rounded value is 0. 
(In general, a value < 0 is "true" and a value > 0 is "false".) 



if performs a branch based on the logical value of the tag expression; 

value of "true" causes fall-through to the next line; value of "false" 
causes branch to the next -elseif-, -else-, or -endif- at the saae 
level; code following -if- eust be indented (up to the next ^elseif-, 
-else-, or -endif- at the sane level) and narked with the "indent" 
syebol; range o-f -if- eust be teriinated by -endif- at the saee level 



if 



L06ICAL EXPR 



elseif provides an alternative br/.ich within the range of the preceding -if- 
at the saee level; subsequent code follows sase indenting rules as -if- 

elseif L06ICAL EXPR 



else (no tag) provides a branch if the logical value of the tag of the 

preceding -if- or -elseif- at the sase level is "false"; subsequent 
code follows sase indenting rules as -if- 



endif (no tag) aarks the end of the range of the preceding 
1 evel 



-if- at the saae 



NOTE: Following is an example demonstrating placesent of these cosaands and 
the fora of the "indent syabol". The indent syabol is a "." followed 
by at least one space. 



if a<4 

write 
calc 
elseif a':4 

write 
do 
el se 

write 
if 



endi f 



first branch 
b«A 

second branch 
soaeuni t 

default branch 

a>6 

write special branch 



endi f 



$$ executed if a<4 
executed if a<4 
%% executed if a>4 
%% executed if a»4 
%% executed if a~4 
$$ executed if a>4 
$$ executed if a>4 
%% executed if d>4 
$$ executed if a>6 
i% end of range of -if 
$$ end of ranoe of -if 



a>6- 
a<4- 
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NOTE: The followinQ four co&aands (-loop-, -endloop-, -outloop-, and -reloop-) 
persit looping within a unit. Logical value ot an expression is "true" 
if its rounded value is -1 and **falsB" if its rounded value is 0. 
(In general, a value < 0 is "true" and a value > 0 is "false**.) 



loop initiates a loop based on the logical value of the tag expression; 

value of "true" causes execution of subsequent coasands in the loop; 
value of "false" causes execution of the first co««and after -endloop- 
at the saee level of indentation as -loop-; code following -loop- aust 
be indented (up to the next -outloop-, -reloop-, or -endloop- at the 
saae Isvel) and earked Hith the "indent" syabol; range of -loop- is 
marked by -endloop- at the sase level 

loop LOBICAL EXPR (blank tag is equivalent to "true" value) 

endloop (no tag) ©arks the end of a loop initiated by the previous -loop- 
coMiand at the saae level of indentation; causes a branch back to 
the previous -loop- cosiand at the sa«e level 



outloop based on the logical value of the tag, causes exit froe the range of 
-loop- at the sa«e level of indentation; value of "true" causes 
execution of the first coaeand after -endloop- at the saae level; 
value of "false" causes execution of subsequent coeeands within the 
loop, Hhich follow the saee indenting rules as -loop- 

outloop LOBICAL EXPR (blank tag is equivalent to "true" value) 



reloop based on the logical value of the tag expression, causes branch back 
to the previous -loop- co««and at the same level of indentation 
without terminating the loop; value of "true" causes branch to the 
previous -loop- at the sa«e level; value of "false" causes execution 
of subsequent consands within the loop, which follow the saae 
indenting rules as -loop- 

reloop LCSICAL EXPR (blank tag is equivalent to "true" value) 



NOTE: Following is an example demonstrating placeaent of these coaiaands and 
the fora of the "indent syabol". The indent syabol is a followed 
by at least one space. 



loop 


a<10 














• 


Mrite 


Hithin loop 




«$ 


executed 


if 


a<10 


• 


cal c 


a4a-l 




$$ 


executed 


if 


a<10 


reloop 


a>5 






i% 


executeu 


if 


a<10 


a 


wri te 


still Hithin 


loop 


%% 


executed 


if 


a<S 


. 


do 


soReunit 




i% 


executed 


if 


a<5 


outloop 


a<3 






i% 


executed 


if 


a<S 


■ 


wr.i liB 


still Hithin 


loop 


i$ 


executed 


if 


3<a<5 


endloop 












Nrite 


outside 


of loop 




$$ 


executed 


if 


a^lO or a<3 
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NOTE: CoMMands -next- through -Ublop- can havt thi conditional fori, Mhtrt 
arguAent x Itavei th» pointer unchangtd, and arguatnt q cltary tht 
pointer and rtndtrs the key inactive. The conditional exprettion it 
evaluated Mhen the coeeand is executed, not nhen the key is pressed. 
A full-screen erase is performed at the beginning of a eein unit unless 
the unit is an "op" unit or the previous unit contained -inhibit erase*. 

next, nextl, back, backl, stop specifies the unit executed when the user 

presses the appropriate key (with -next- the user eust be at the end 
of the unit before the specified unit is executed); the specified unit 
is a Main unit 

next UNIT NAME 

backl q (clears backl pointer; disables SHIFT BACK key) 

nextop, nextlop, backop, backlop, stopop specifies the unit executed nhen the 
user presses t^ appropriate key; there is no full-screen erase and 
additional plotting is on the saee display (on-the-page) ; the 
specified unit is a eain unit 

nextlop UNIT NAME 

backop q (clears the back pointer; disables BACK key) 

help, helpl, data, datal, l&b, labt specifies the unit executed Mhen the user 
presses the appropriate key; initiates a help sequence and sets the 
base pointer to the unit containing the help-type coaeand (unless the 
base pointer is already set); the base unit is executed after the help 
sequence is completed or if the user presses BACK or BACKl; units in a 
help sequence are eain units but not base units; a help sequence ends 
with a unit that does not contain a -next- coeeand 

help UNIT NAHE 

lab q (clears lab pointer; disables LAB key) 

helpop, helplop, dataop, datalop, labop, lablop specifies the unit executed 
Hhen the user presses the appropriate key; there is no full-screen 
erase and additional plotting is on the saee display (on-the-page); 
the unit executed is neither a eain unit nor a base unit; aft:, 
execution, control is returned to the unit containing -helpop'^ at the 
-arrow-, -pause-, or end-of-unit where the user pressed the key 

helpop UNIT NAME 

dataop q (clears the data pointer; disables the DATA key) 



base clears the base pointer in order to alter help-type sequencing 
base (B) 
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keylist (non*«xacutablt) foris a set of keys Mith the specified naiie for use 
with -pause-, -keytypt- , and -jkey- coMands 

keylist NAHE,KEY1,KEY2,KEY3, . . . (froe 2 to 7 characters in NAHE) 
keylist NAHE,NAHE1,NAHE2, • • • (keylists can be coibined) 

Note: Systei-def ined keylists are: 

alpha (letters: a to z and A to Z) 

nueeric (digits: 0 to 9) 

funct (function keys) 

keyset (any keyset input) 

touch (input fros touch panel) 

ext (input froi external device other than touch panel) 

all (input fros keyset, touch panel, or external device) 

In addition to alpha, numeric, and function keys, naset given 

in the tables in the appendix can be used. These naaes can 

also be used with -press-, -jkey-, -pause-, -keytype-, and 
'zk (KEYNAME)*. 



pause delays execution of subsequent coesands by the specified interval (and 
then presses TIMEUP key) or until one of the specified keys is pressed 

EXPR 6IVIN6 NUH SECONDS 
0 (causes no paasa) 

(B) or. pause NEBATIVE VALUE (interrupts processing until 

any key or alloMed input cones in) 
keys=KEYl,KEY2, KEYLIST MAHE,... (interrupts processing until 
a specified key is pressed; all keynames are typed without 
quote earks and function keys are typed in loner case) 
NUH SECONDS, key5=KEYl,KEY2,KEYLIST NAME,... (interrupts 

processing for the specified interval [and then presses the 
TIHEUP key] or until a specified key is pressed) 

Note: If a function key oth ' than next, such as help, is specified 

and there is a preceding -help- coAeand specifying a unit, this 
unit is executed rather than the coesand following the -pause-. 
If next is specified, the NEXT key just breaks the -pause-, 
even if there is a preceding -next- coaeand. 

The statements -pause keys«touch- and -pause keys^ext- set the 
t appropriate -enable-j -pause keys'aU- does not set -enable-. 

Keycode of the input (including TIMEUP) is stored in "zkeyV 



pause 
pause 
pause 

pause 



pause 



fel:RLC 
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keytype sets a variable according to the position in a list of the input by 

the user; if the input action is not listed, the variable is set to -1 



keytype VAR, AR60, AR61 , AR62, . . , 



arguaents ARBO, ARBl, ARG2,... can bo any of the foUoHing: 

KEYNAME (any keynast; no quotation «arks are used; 

function keys are in loner case) 
KEYLIST NAME (naiie of a systee-def ined keylist or of a list 

set up by the -keylist* coiiand) 
ext (any external input) 

touch(COARSE,»IOTH IN CHARACTERS, HEIGHT IH LIHES) 
touch(FINEX,FINEY, HIDTH IH dOTSfHEIBHT IH dOTS) 

(COARSE or. FINEX,FINEY is the screen position of tht corner 
closest to the screen origin (as defined by the -fine* 
coftaand) of a rectangle with specified width and height; 
width and height are optional and have v^.lue 1 if oritted) 

Note: Up to 97 keys can be specified; keylists count as one key. 



press puts the specified key into the student input buffer 



press 2k (KEYNAME) (e.g. , press zk(b) or. press 2k(back) or. 

press zk (super) ) 

press "KEYNAME" (e.g., press "b" ; function keys not allowed) 

press EXPR GIVING KEYCODE 

press zk (touch)-i'X (touch input at sc*^een coordinates X,Y; 

press zk (touchl-t-Y botti lines of code iiust be given) 

press zk(ext)-i'D (input of data D froe an external device) 



getkey (no tag) reads the next key froia the key buffer (which contains up to 
12 keys pressed by the user or by -press-), reeoves the key froe the 
buffer, and sets "zkey" to the value of the key (sets "rkey" to -1 if 
the buffer is eoipty) 



drkey (no tag) clears the key buffer 
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LessoiEV connections and sections 



(non*executablQ) inserts into the file being condensed the specified 
block(5) free the file specified in the t»9 of -use-f aU contiguous 
blocks Kith the saee naee are taken 

use FILE NAHE, BLOCK NAHE 



juepout causes execution of the specified lesson 
juepout FILE MAHE 

juepout FILE NAHE(VALUElpVALUE2) (exa«ple of fore Kith argueents; 

up to 10 values can be passed to the first unit in the 
lesson; first unit is' specified with argueents) 
juepout (STARTIN8 VAR) (variable naee eust be enclosed in parentheses) 
juepout (STftRTINB VAR) (VALUEl, VALUE2) (variable naee, argueents) 
juepout q BL juepout (B) (returns to the router lesson) 



(non-executable) (no tag) indicates subsequent code is to.be condensed 
(used after a preceding -estop-) 



estop (non-executable) (no tag) indicates subsequent code is not to be 
condensed; in effect up to the next -cstart--, if any 



estop* (non-executable) (no tag) indicates none of the subsequent code is to 
be condensed, independent of subsequent --cstart- coeeands 
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LeSSdn anndtatiOn and QvtjU^yinQ 



indicates the stateaent on that line is a coeei»nt only and is to be 
ignored by the cooputer 

tJhis is a coaeent. 



1$ (not a coseand) when placed on the sase line with a mTUTOR stateeent 

indicates that subsequent eaterial on that line is a coeeent 

COHHAND TAB $$thi5 is a coeeent 

Note: Spaces preceding the are discarded. 



step alloMs a user to step through a lesson coeeand by coeeand; inforeation 
about execution is displayed at the bottoB of the screen 

step EXPR (value--'l turns step eode on; 

value^O turns s':ep eode off) 



finish specifies the unit nhich will be executed when the user leaves the 
lesson by pressing STQPl 

finish ' UNIT NAME 

finish q (clears -finish- setting) 

finish EXPR,NAHEH,NftHE0,q,MAHE2,x (exaeple of conditional fore; 

argueent q clears setting; argument x leaves setting 
unchanged) 



protect prevents the lesson froe being interrupted by STOPl keypress; if STOPl 
is pressed during execution of prograe code after protection i« turned 
cn, execution continues until the lesson ends or until protection is 
turned off; the finish unit <if any) is executed before the user 
leaves the lesson 



protect EXPR 



(values-l turns protection on; 
value=0 turns protection off) 
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Systen variables fcr sequencing 



zarg? nuiber of values passed at the previous execution of a unit Nith 
argunents or -ju(ipout- with arguaents 



zclock nuaber of seconds (to the nearest eillisecond) since eidnight 
(floating-point nunber) 



zday * nueber of days betNeen the current day and eidnight Sunday, ' 

Deceaber 31, 1972 to the nearest 10"^ day (approximately A second) 
(floating-point nuaber) 



zenvir ^ i if the terainal is running on a Cluster netnork 

3 2 if the terainal is running independent of a Cluster netnork 



zkey contains inforaation on the last input (updated after *arroi«-, 
-pause-, -getkey-, and at the beginning of a sain unit); 
counting froa the left end of the 16-bit Hord (2* Ossskkkkdddddddd) : 



1 bit: 

3 bits (sss): 



keyset; 001 touch panel; 



4 bits (kkkk): 



alNays 0 

source of input: 000 
010 external device 

set if source is keyset: 0000 displayafale character 
0001 function key; 0010 Japanese function key 
8 bits (dddddddd): ASCII code for L^haracter if source is keyset; 
value of data if source is external device; 
0 if source is touch panel (see ^'ztouchx*', *'ztouchy") 



znuApad - --1 if the aost recent input is froa the nuaber pad 

= 0 otherwise (or if the keyset does not have a nuaber pad) 



zport identification number of the port on the Cluster Systea 



zreturn 



set by tany coaaands according to the results of execution; set by: 
-addfile-, -addnaae-, -charset-, -chgfile-, -chgnaae-, -coapute-, 
-datain-, -dataout-, --delfile-, -delnaae-, -getfile-, -getnaae-, 
-putd-, --aicro-, -names-, -reserve-, -release-, -setdir-, -setfile- 
-srtnaae-, -textn- 



ztouchx fine-grid x location of the center of the touch square touched 
(set tu 0 if source of input is not touch panel) 



ztouchy fine-grid y location of the center of the touch square touched 
(set to 0 if source of input is not touch panel) 
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ztstype gives inforiation on the ter«inars subtype 
if the value of •zttype* is 34: 
» 0 if the tereinil is an IST-2 
1 if the terminal is an IST-3 
- 2 if the tereinal is a Viking 

if the value of "zttype* is 42: 
= 0 if the tereinal is an NEC-BSOi 
1 if the tereinal is an NEC-9801 
» 2 if the tereinal is an NEC-9801 running under local operating 
systee u^ing floppy disks 

zttype gives inforeation on the user's tereinal type 

= 34 if the tereinal is an 1ST or Viking (512x512 eonochroee screen) 
^ 42 if the terninal is an NEC (640x400 8-*color screen) 
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Additional notes on SEQUENCIN6 



lERiC 
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Additisnsi notss on SE8JJENCIN8 
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Control Codes 



Character Codes 
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Control Codes 










Character Codes 
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C s control or character 

H s ASCII code in htxadtciaal notation 



The systeo) variable "zkey" contains the code value of the previous input* 

The function ''zk" gives the values in these tables; zk(hsp)-89h; zk (next) ^^lOlh. 

With some charactersi special nanes «ust be used H).th "zk"*; 

textsep (for t ); lenbed (for i ); reibed (for > ); coi«a (for , )• 
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Explanation of Control Nates 

tNaies in dark type indicate features available only on Japanese keysets.3 
bk^fi backspace 

If line feed (eove donn one lir<e} distance eoved is determined by the si^e 

of the characters in use) 
vt vertical tab (eove up one line; <tistance eoved is detereined by the size 

of the characters in use), 
cr carriage return with liiv;^' feed Mhose height is detereined by the size of 

the characters in use 
hire hiragana characters 
roean standard rosan alphabet 
kata katakana characters 
escape escape code 

rev writing right to left in alternate font froe current screen location 
revs uriting right to left in alternate font froe right edge of Mindon 
bold bold uriting 

nore normal writing (left to right, standard size) 
sfull short full-size characteri (16 dots x 16 dots) 
half half-size characters (8 dots » 24 dots) 
std standard-size characters (8 dots x 16 dots) 
vert vertical writing (upward) 
hbksp half backspace 
hsp half space 

subl locked subscript (characters are written 5 dots below line of text) 
superl locked superscript (characters are written 5 dots above line of text) 
her half carriage return 

nl new linej sieilar to cr but restores display conditions (bold, font, etc*) 

present at the beginning of the text (beginning of the -write- coeeand); 
autoeatically inserted by the condenser for each new line of text 

skanji short kanji characters (16 dots x 16 dots) 

font alternate foiit characters 

full full-size characters (16 dots x 24 dots) 

kanJi kanji characters (16 dots x 24 dots) 

heove horizontal eoveeent of 1 dot (right if writing is left to right, left if 

writing is right to left) 
veove vertical aoveeent of 1 dot upward 



Characters and controls can be eebedded in text, for exaeple: 

<cr>, 4roean>, 4font^, <hira>, 4kata^, ^5kanji>, ^bold>, 4nore> 
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Codes for Function Keys 
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zk(touch) lOOOh 
zk(ext) = 2000h 
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Characters and SYMBOL Charactsrs 
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C 3 character with ASCII code betHeen 32 and 127 

S^C s SYKBOL^C s character Nith ASCII code between 160 and 2SS 

s [press SYMBOL key and release; press character key iOl 



See table beloii Charactiri and HICM Cbarictirf for exceptions nith the 1ST. 



Characters and MICRO Characters HICRO Characters and Display Functions 



c 


H+C 


c 




c 


«+C 


C 




a 


% 


s 


S 


space 


hsp 


X 


bold 


/ 


\ 


s 


/ 


oksp 


hbksp 




nors 


C 


A 


d 


♦ 


subl 


If 




rev 


6 


\ 


1 




superl 


vt 


< 


revs 


I 


1 


i 




font 


rosan 


1 


heove 








u 


cr 


her 


2 


vftove 



C s character 

n-fC s HICR(KC s character not 

accessible directly 
or Hith SYMBOL on 
the 1ST keyset 



C 3 character or control 
nVC s HICRO't-C s display function not 
sarked on the keyset 



H^C 



s Cpres*^ MICRO key and release; press character key or control key {C}3 



Note: These MICRO characters may not be available if a user*defined Aicrotable 
is in effect. 
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Definition of Hexadeciaal Syabols 



decinal 

0 
1 
2 
3 
4 
5 
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O 
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10 

n 

12 
13 
14 
IS 



binary 

0000 
0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 
1001 
1010 
1011 
1100 
1101 
1110 

nil 



hexadcciaal 
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8 
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b 
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f 



Conversion between Deciaal (D) and Hexadecinal (H) Nuabers 
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eS 


6 


06 


38 


26 


70 


46 


102 


66 


134 


86 


166 


a6 


198 


c6 


230 


l6 


7 


07 


39 


27 


71 


47 


103 


67 


135 


87 


167 


a7 


199 


c7 


231 


e7 


3 


08 


40 


28 


72 


48 


104 


68 


136 


88 


168 


aS 


200 


c8 


232 


t8 


9 


09 


41 


29 


73 


49 


105 




137 


89 


169 


a9 


201 


c9 


233 


c9 


10 


Oa 


42 


2a 


74 


4a 


106 


6a 


138 


8a 


170 


aa 


202 


ca 


234 


ea 


11 


Ob 


43 


2b 


75 


4b 


107 


6b 


139 


8b 


171 


ab 


203 


cb 


235 


eb 


12 


Oc 


44 


2c 


76 


4c 


108 


6c 


140 


8c 


172 


ac 


204 


cc 


236 


ec 


13 


Od 


45 


2d 


77 


4d 


109 


6d 


141 


8d 


173 


ad 


205 


cd 


237 


ed 


14 


Oe 


46 


2e 


78 


4e 


110 


6e 


142 


8« 


174 


as 


206 


ce 


238 


ee 


IS 


Of 


47 


2f 


79 


4f 


111 


6f 


143 


8f 


175 


af 


207 


cf 


239 


ef 


16 


10 


48 


30 


80 


50 


112 


70 


144 


90 


176 


bO 


208 


dO 


240 


fO 


17 


11 


49 


31 


81 


51 


113 


71 


145 


91 


177 


bl 


209 


dl 


241 


f 1 


18 


12 


SO 


32 


82 


52 


114 


72 


146 


92 


178 


b2 


210 


d2 


242 


f2 


19 


13 


51 


33 


83 


53 


US 


73 


147 


93 


179 


b3 


211 


d3 


243 


f3 


20 


14 


52 


34 


84 


54 


116 


74 


148 


94 


180 


b4 


212 


d4 


244 


f4 


21 


IS 


53 


35 


85 


55 


117 


75 


149 


95 


181 


bS 


213 


dS 


245 


fS 


22 


16 


54 


36 


86 


56 


118 


76 


150 


96 


182 


b6 


214 


d6 


246 


f6 


23 


17 


55 


37 


87 


57 


119 


77 


151 


97 


183 


b7 


215 


d7 


247 


f7 • 


24 


18 


56 


38 


88 


58 


120 


78 


152 


98 


184 


b8 


216 


d8 


248 


f8 


25 


19 


57 


39 


89 


59 


121 


79 


153 


99 


185 


b9 


217 


d9 


249 


f9 


26 


la 


58 


3a 


90 


Sa 


122 


7a 


154 


9a 


186 


ba 


218 


da 


250 


fa 


27 


lb 


59 


3b 


91 


Sb 


123 


7b 


155 


9b 


187 


bb 


219 


db 


251 


fb 


28 


Ic 


60 


3c 


92 


5c 


124 


7c 


156 


9c 


188 


be 


220 


dc 


2S2 


fc 


29 


Id 


61 


3d 


93 


Sd 


125 


7d 


157 


9d 


189 


bd 


221 


dd 


253 


fd 


30 


le 


62 


3e 


94 


5e 


126 


7e 


158 


9e 


190 


be 


222 


de 


2S4 


fe 


31 


If 


63 


3f 


95 


5f 


127 


7f 


159 


9f 


191 


bf 


223 


df 


255 


ff 



4. J 



jll6 



n 






2" 


0 






1 


1 






2 


2 






4 


3 






8 


4 






16 


s 






32 


A 






64 


7 






128 


8 






256 


9 






512 


10 




I 


024 


1 1 




2 


048 

V T w 


12 




4 


096 


13 




8 


192 


14 




16 


384 


IS 




32 


768 


1 A 




AS 
Ow 




17 




131 


072 


18 




262 


144 


19 




524 


288 


20 


1 


048 


576 


21 


2 


097 


152 


22 


4 


194 


304 


23 


8 


388 


608 


24 


16 


777 


216 


25 


33 


554 


432 


26 


67 


108 


864 


27 


134 


217 


728 


28 


268 


435 


456 


29 


536 


870 


912 



I- 



J, 



I- 



i ERlC 



Powers of 2 



n 2" 



30 






1 


073 


741 


824 


31 






2 


147 


483 


648 


32 






4 


294 


967 


296 


33 






8 


589 


934 


592 


34 






17 


179 


869 


184 


39 






34 


359 


738 


368 


36 






68 


719 


476 


736 


37 






137 


438 


953 


472 


38 






274 


877 


906 


944 


39 






549 


755 


813 


888 


40 




1 


099 


511 


627 


776 


41 




2 


199 


023 


255 


552 


42 




4 


398 


046 


511 


104 


43 




8 


796 


093 


022 


208 


44 




17 


592 


186 


044 


416 


45 




35 


184 


372 


088 


832 


46 




70 


368 


744 


177 


664 


47 




140 


737 


488 


355 


328 


48 




281 


474 


976 


710 


656 


49 




562 


949 


953 


421 


312 


SO 


1 


125 


899 


906 


842 


624 


SI 


2 


251 


799 


813 


685 


248 


52 


4 


503 


599 


627 


370 


496 


53 


9 


007 


199 


254 


740 


992 


54 


18 


014 


398 


509 


481 


984 


55 


36 


028 


797 


018 


963 


968 


56 


72 


057 


594 


037 


927 


936 


57 


144 


115 


188 


075 


855 


872 


58 


288 


230 


376 


•151 


711 


744 


59 


576 


460 


752 


303 


423 


488 
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INIXEX 




ERIC 
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INDEX 



II 



n«|«ii«<wvt %wttA AiiwvA WW shaven varAauAes 

Systei variables can be used Nherever expressiops are accepted. 



Uord 


Page 


Hord 


Page 


zanscnt 


J12 


zntrids 


J12 


zargs 


S13 


znuipad 


S13 


zblack 


P17 


2opcnt 


J12 


zblue 


P17 


zorder 


J12 


zcaps 


J12 


zport 


S13 


zclock 


S13 


zrecs 


F2 


zcyan 


P17 


zred 


P17 


zday 


S13 


zretinf 


CU,F9,P17 


zdevice 


P17 


zreturn 


F10,S13 


zentire 


J12 


zrouten 


R2 


zenvir 


S13 


zscore 


R2 


zextra 


J12 


zspell 


3X2 


zfauth 


F9 


zstatl 


R2 


zf bpi 


F9 


ztouchx 


S13 


zf bpn 


F9 


ztouchy 


S13 


zf bpr 


F9 


ztstype 


S14 


zf eaxn 


F9 


zttype 


S14 


zf naas 


F9 


zMCOunt 


J12 


zf recs 


F9 


zMherex 


P17 


zf type 


F9 


zMherey 


P17 


zgreen 


P17 


zMhite 


P17 


zjcount 


J12 


zxeax 


P17 


zjudged 


J12 


zxAin 


P17 


zkey 


S13 


zyelloM 


P17 


zldone 


R2 


zyeax 


P17 


zegenta 


P17 


zyein 


P17 


zeode 


P17 






Alphabetical list of systen functions and operations 


These functions are descri bed on 


pages C4 to C&. 




abs 


$cls$ 


In 


$union$ 


alog 


coep 


log 


zk 


$and$ 


cos 


$lsh$ 


zlength 


arccos 


cot 


$eask$ 


zvloc 


arccot 


CSC 


not 




arccsc 


$diff$ 


$or$ 


* 


arcsec 


$di vr$ 


SrshI 


< 


arcsin 


* $divt$ 


sec 




arc tan 


exp 


siri 


< 


$ars$ 


f rac 


sqrt 


> 


bitcnt 


int 


tan 
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Alphabstical indsx to coaaands and 



C 



Coaaand 


Page 


Coaaand 


Paga 


addfili 


F1,F3,F7 


circleb 


P7 


addnaaa 


F5 


clrkey 


S9 


addrecs 


F5 


coarse 


PI 


all ON 


P5 


color 


PU 


ansv 


J6 


coapute 


C3 


answer 


JS 


copy 


J2 


ansHtrc 


J6 


cstart 


SIO 


arguaent 


S1,S2,S3 


estop 


SIO 


arroM 


Jl 


estop* 


810 


at 


P2 


darroN 


Jl 


atna 


P2 


data 


S7 


axes 


P9 


datal 


S7 


back 


S7 


dataop 


S7 


backl 


S7 


datalop 


S7 


backop 


S7. 


datain 


F2,F6 


backlop 


S7 


ditaout 


F2,F6 


base 


S7 


define 


CI 


beep 


P16 


delfile 


F2,F3 


block 


C3 


delnaae 


F5 


bounds 


P9 


delrecs 


F5 


box 


P6 


disable 


PU 


branch 


S4 


do 


S3 


calc 


C2 


dot 


P6 


calcc 


C2 


doto 


S4 


calcs 


C2 


draw 


P6 


char 


P12 


else 


SS 


charset 


P12 


elseif 


SS 


chgf ile 


F2,F4,F7 


eabed 


P2 


chgnaae 


F5 


enable 


P16 


circle 


P7 


endarroN 


Jl 



related dirtctivei 



Coaaand 


Page 


Coaaand 


Page 


endif 


SS 


halpop 


S7 


tndloop 


S6 


helpiop 


S7 


erase 


P4,P15 


iarroN 


J9 


erateu 


J2 


if 


SS 


exact 


J& 


ifaatch 


J7 


exactN 


ib 


iiudge 


J9 


fill 


P6 


iaain 


S4 


find 


CIO 


inhibit 


PS 


fine 


PI 


intrupt 


P16 


finish 


S12 


jkey 


J2 


?orce 


J2 


judge 


JIO 


gat 


PIO 


juap 


S3 


gatna 


PIO 


juapn 


S3 


gbox 


Pll 


juapout 


SIO 


gcircle 


Pll 


kcylist 


S8 


gdot 


PIO 


keytype 


S9 


gdraN 


PIO 


keyiford 


JS 


getchar 


P12 


lab 


S7 


getf ile 


F2,F4,F8 


labl 


S7 


getkey 


S9 


labop 


S7 


getloc 


J8 


lab lop 


S7 


getaark 


J8 


labelx 


PIO 


getnaae 


F5 


label y 


PIO 


gfill 


Pll 


lesson 


Rl 


gorigin 


P9 


long 


Jl 


goto 


S3 


loop 


S6 


gvector 


Pll 


aarkx 


PIO 


hbar 


Pll 


aarky 


PIO 


help 


S7 


aicro 


P13 


helpl 


S7 


aode 


P4,P15 
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Hiphabtticai indax to coiiands and related directives (cont.) 



Coeeand 


Page 


Coeeand 


Page 


Coeeand 


Page 


naets 


F4,r8 


rorigin 


P8 


vbar 


Pll 


next 


S7 


rotate 


P4 


vector 


P7 


ntxtl 


S7 


router 


Rl 


NimdON 


PI 


ncxtop 


S7 


scalex 


P9 


Nrite 


P2 


ncxtlop 


S7 


scaley 


P9 


Nritec 


P2 


no 


J7 


score 


Rl 


wrong 




noNord 


Jll 


search 


C8 


Nrongc 


J6 


ok 


J7 


searchf 


C9 


Nrongv 


J6 


okNord 


Jll 


set 


C2 


xin 


P16 


or 


J6 


setdir 


F8 


xout 


P16 


outloop 


S6 


sctfile 


F1,F3,F7 


zero 


C2 


pack 


C8 


setnaae 


F4 


« 


Sll 


packc 


C8 


setpere 


C7 




SU 


pause 


S8 


shoN 


P2 






plot 


P12 


showa 


P3 






press 


S9 


shoMb 


P3 






protect 


512 


shoMh 


P3 






putd 


J3 


ShOMO 


r3 






randp 


C7 


ShOMt 


P2 






randu 


C7 


size 


P4 






rat 


P8 


specs 


J4 






ratne 


P3 


status 


Rl 






rcircle 


P8 


step 


Sll 






rdot 


P8 


stop 


S7 






rdraM 


P8 


stopop 


S7 






release 


F2,F6,F8 


tabset 


P12 






reloop 


S6 


text 


P3 






reaove 


C7 


textn 


P3 






reserve 


F2,F6,F8 


unit 


SI 






restore 


C7 


use 


SIO 







w 



R 



ier|c 
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